aboutsummaryrefslogtreecommitdiffstats
path: root/packdrake-pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-11-26 14:12:02 +0000
committerFrancois Pons <fpons@mandriva.com>2002-11-26 14:12:02 +0000
commit1c85849a7e6707036c20c113ba8407fd70de1fde (patch)
tree42c79b964e72db64fe1a3e319e9391f5effba7ae /packdrake-pm
parent3773ac940fe1fa4ebf008c1522edc9666ba9bb7c (diff)
downloadrpmtools-1c85849a7e6707036c20c113ba8407fd70de1fde.tar
rpmtools-1c85849a7e6707036c20c113ba8407fd70de1fde.tar.gz
rpmtools-1c85849a7e6707036c20c113ba8407fd70de1fde.tar.bz2
rpmtools-1c85849a7e6707036c20c113ba8407fd70de1fde.tar.xz
rpmtools-1c85849a7e6707036c20c113ba8407fd70de1fde.zip
fix of pixel from perl-checker.
Diffstat (limited to 'packdrake-pm')
-rw-r--r--packdrake-pm/packdrake.pm4
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}";