summaryrefslogtreecommitdiff
path: root/solenv/bin/packimages.pl
diff options
context:
space:
mode:
authorStephan Bergmann <sbergman@redhat.com>2013-06-04 09:44:59 +0200
committerStephan Bergmann <sbergman@redhat.com>2013-06-04 09:44:59 +0200
commit5a1c2f108d4cf9b734a13a5b3f1ba0974456bbcf (patch)
tree77e0883e8cf4701eae41e5f00a10881b09598f8b /solenv/bin/packimages.pl
parent547217ecf2348cf511b1f058ecbab6f15f2bceff (diff)
Remove temporary links* files when done
Change-Id: I0d62ae391b12cec9a057aef26344f3454d2faba4
Diffstat (limited to 'solenv/bin/packimages.pl')
-rw-r--r--solenv/bin/packimages.pl6
1 files changed, 3 insertions, 3 deletions
diff --git a/solenv/bin/packimages.pl b/solenv/bin/packimages.pl
index 5c84dc647a45..556af2c5fe10 100644
--- a/solenv/bin/packimages.pl
+++ b/solenv/bin/packimages.pl
@@ -348,8 +348,9 @@ sub create_zip_archive
print_message("creating image archive ...") if $verbose;
my $zip = Archive::Zip->new();
+ my $linktmp;
if (keys %{$links_hash_ref}) {
- my $linktmp = write_links($links_hash_ref);
+ $linktmp = write_links($links_hash_ref);
my $member = $zip->addFile($linktmp->filename, "links.txt", COMPRESSION_DEFLATED);
if (!$member) {
print_error("failed to add links file: $!", 5);
@@ -481,8 +482,7 @@ sub read_links($$)
sub write_links($)
{
my $links = shift;
- my $tmp = File::Temp->new( TEMPLATE => "linksXXXXXXX",
- UNLINK => 0 );
+ my $tmp = File::Temp->new( TEMPLATE => "linksXXXXXXX" );
$tmp || die "can't create tmp: $!";
for my $missing (sort keys %{$links}) {
my $line = $missing . " " . $links->{$missing} . "\n";