diff options
| author | Stephan Bergmann <sbergman@redhat.com> | 2013-06-04 09:44:59 +0200 |
|---|---|---|
| committer | Stephan Bergmann <sbergman@redhat.com> | 2013-06-04 09:44:59 +0200 |
| commit | 5a1c2f108d4cf9b734a13a5b3f1ba0974456bbcf (patch) | |
| tree | 77e0883e8cf4701eae41e5f00a10881b09598f8b /solenv | |
| parent | 547217ecf2348cf511b1f058ecbab6f15f2bceff (diff) | |
Remove temporary links* files when done
Change-Id: I0d62ae391b12cec9a057aef26344f3454d2faba4
Diffstat (limited to 'solenv')
| -rw-r--r-- | solenv/bin/packimages.pl | 6 |
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"; |