diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-11-26 14:12:02 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-11-26 14:12:02 +0000 |
| commit | 1c85849a7e6707036c20c113ba8407fd70de1fde (patch) | |
| tree | 42c79b964e72db64fe1a3e319e9391f5effba7ae | |
| parent | 3773ac940fe1fa4ebf008c1522edc9666ba9bb7c (diff) | |
| download | rpmtools-1c85849a7e6707036c20c113ba8407fd70de1fde.tar rpmtools-1c85849a7e6707036c20c113ba8407fd70de1fde.tar.gz rpmtools-1c85849a7e6707036c20c113ba8407fd70de1fde.tar.bz2 rpmtools-1c85849a7e6707036c20c113ba8407fd70de1fde.tar.xz rpmtools-1c85849a7e6707036c20c113ba8407fd70de1fde.zip | |
fix of pixel from perl-checker.
| -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}"; |