solenv/bin/packimages.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-)
New commits: commit 5a1c2f108d4cf9b734a13a5b3f1ba0974456bbcf Author: Stephan Bergmann <[email protected]> Date: Tue Jun 4 09:44:59 2013 +0200 Remove temporary links* files when done Change-Id: I0d62ae391b12cec9a057aef26344f3454d2faba4 diff --git a/solenv/bin/packimages.pl b/solenv/bin/packimages.pl index 5c84dc6..556af2c 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"; _______________________________________________ Libreoffice-commits mailing list [email protected] http://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
