Skip to content

C
core
Kaydet (Commit) 5a1c2f10 authored tarafından Stephan Bergmann's avatar Stephan Bergmann
Dosyalara gözat
Seçenekler

Remove temporary links* files when done 

Change-Id: I0d62ae391b12cec9a057aef26344f3454d2faba4
üst 547217ec
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 3 deletions
solenv/bin/packimages.pl
Dosyayı görüntüle @ 5a1c2f10
...@@ -348,8 +348,9 @@ sub create_zip_archive ...@@ -348,8 +348,9 @@ sub create_zip_archive
print_message("creating image archive ...") if $verbose; print_message("creating image archive ...") if $verbose;
my $zip = Archive::Zip->new(); my $zip = Archive::Zip->new();
my $linktmp;
if (keys %{$links_hash_ref}) { 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); my $member = $zip->addFile($linktmp->filename, "links.txt", COMPRESSION_DEFLATED);
if (!$member) { if (!$member) {
print_error("failed to add links file: $!", 5); print_error("failed to add links file: $!", 5);
...@@ -481,8 +482,7 @@ sub read_links($$) ...@@ -481,8 +482,7 @@ sub read_links($$)
sub write_links($) sub write_links($)
{ {
my $links = shift; my $links = shift;
my $tmp = File::Temp->new( TEMPLATE => "linksXXXXXXX", my $tmp = File::Temp->new( TEMPLATE => "linksXXXXXXX" );
UNLINK => 0 );
$tmp || die "can't create tmp: $!"; $tmp || die "can't create tmp: $!";
for my $missing (sort keys %{$links}) { for my $missing (sort keys %{$links}) {
my $line = $missing . " " . $links->{$missing} . "\n"; my $line = $missing . " " . $links->{$missing} . "\n";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment