From 1c85849a7e6707036c20c113ba8407fd70de1fde Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 26 Nov 2002 14:12:02 +0000
Subject: fix of pixel from perl-checker.

---
 packdrake-pm/packdrake.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'packdrake-pm')

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}";
-- 
cgit v1.2.1