aboutsummaryrefslogtreecommitdiffstats
path: root/Packdrakeng.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-12-16 15:03:58 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-12-16 15:03:58 +0000
commit2250a50aba6d1424b252b7395c167f209e3b4afb (patch)
tree5c7b9e066bccaed38ff8df9174cf452e15543ce7 /Packdrakeng.pm
parentb1465ed964921049201ea9e103a871d57e5d7194 (diff)
downloadrpmtools-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
Diffstat (limited to 'Packdrakeng.pm')
-rw-r--r--Packdrakeng.pm9
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 {