diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-12-16 15:03:58 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-12-16 15:03:58 +0000 |
| commit | 2250a50aba6d1424b252b7395c167f209e3b4afb (patch) | |
| tree | 5c7b9e066bccaed38ff8df9174cf452e15543ce7 | |
| parent | b1465ed964921049201ea9e103a871d57e5d7194 (diff) | |
| download | rpmtools-2250a50aba6d1424b252b7395c167f209e3b4afb.tar rpmtools-2250a50aba6d1424b252b7395c167f209e3b4afb.tar.gz rpmtools-2250a50aba6d1424b252b7395c167f209e3b4afb.tar.bz2 rpmtools-2250a50aba6d1424b252b7395c167f209e3b4afb.tar.xz rpmtools-2250a50aba6d1424b252b7395c167f209e3b4afb.zip | |
Don't invoke compression/decompression subroutines as methods
| -rw-r--r-- | Packdrakeng.pm | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/Packdrakeng.pm b/Packdrakeng.pm index aa271d5..adf62e9 100644 --- a/Packdrakeng.pm +++ b/Packdrakeng.pm @@ -267,8 +267,7 @@ sub end_seek { sub end_block { my ($pack) = @_; $pack->end_seek() or return 0; - my $m = $pack->{subcompress}; - my (undef, $csize) = $pack->$m(undef); + my (undef, $csize) = $pack->{subcompress}($pack, undef); $pack->{current_block_csize} += $csize; foreach (keys %{$pack->{current_block_files}}) { $pack->{files}{$_} = $pack->{current_block_files}{$_}; @@ -463,8 +462,7 @@ sub add_virtual { next; }; - my $m = $pack->{subcompress}; - my ($size, $csize) = $pack->$m($data); + my ($size, $csize) = $pack->{subcompress}($pack, $data); $pack->{current_block_files}{$filename} = { size => $size, off => $pack->{current_block_off}, @@ -521,8 +519,7 @@ sub extract_virtual { $pack->{log}("Can't seek to offset $pack->{files}{$filename}->{coff}"); return -1; }; - my $m = $pack->{subuncompress}; - $pack->$m($destfh, $pack->{files}{$filename}); + $pack->{subuncompress}($pack, $destfh, $pack->{files}{$filename}); } sub extract { |