From 2250a50aba6d1424b252b7395c167f209e3b4afb Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Thu, 16 Dec 2004 15:03:58 +0000
Subject: Don't invoke compression/decompression subroutines as methods

---
 Packdrakeng.pm | 9 +++------
 1 file 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 {
-- 
cgit v1.2.1