[Libreoffice-commits] core.git: solenv/bin

[Stephan Bergmann]

 solenv/bin/packimages.pl |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

New commits:
commit 5a1c2f108d4cf9b734a13a5b3f1ba0974456bbcf
Author: Stephan Bergmann <sbergman at redhat.com>
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";