diff options
Diffstat (limited to 'packdrake-pm/packdrake.pm')
| -rw-r--r-- | packdrake-pm/packdrake.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/packdrake-pm/packdrake.pm b/packdrake-pm/packdrake.pm index 16ab823..7116ff0 100644 --- a/packdrake-pm/packdrake.pm +++ b/packdrake-pm/packdrake.pm @@ -393,15 +393,15 @@ sub extract_archive { #- $curr_off is used to handle the reading in a pipe and simulating #- a seek on it as done by catsksz, so last file position is #- last byte not read (ie last block read start + last block read size). + local *FILE; my $curr_off = 0; foreach (sort { $a->[1] <=> $b->[1] } @{$extract_table{$_}[1]}) { my ($newfile, $off, $siz) = @$_; - local *FILE; open FILE, $dir ? ">$newfile" : ">&STDOUT"; catsksz(\*OUTPUT, $off - $curr_off, $siz, \*FILE); $curr_off = $off + $siz; + close FILE; } - close FILE; } else { local *BUNZIP2; open BUNZIP2, "| $ENV{LD_LOADER} $packer->{uncompress}"; |