From 8acce9a518959b70cd740fafaea69c44578e13b8 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 28 Nov 2002 01:01:25 +0000 Subject: packdrake.pm is now perl_checker compliant --- packdrake-pm/packdrake.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'packdrake-pm') diff --git a/packdrake-pm/packdrake.pm b/packdrake-pm/packdrake.pm index fb2b497..a9531af 100644 --- a/packdrake-pm/packdrake.pm +++ b/packdrake-pm/packdrake.pm @@ -416,7 +416,7 @@ sub extract_archive { sub build_archive { my ($f, $srcdir, $archivename, $maxsiz, $compress, $uncompress, $tmpz) = @_; my ($off1, $siz1, $off2, $siz2) = ('', '', 0, 0, 0, 0); - my @filelist = (); + my @filelist; my $packer = new packdrake; $packer->{archive} = $archivename; @@ -480,9 +480,9 @@ sub build_archive { open OUTPUT, ">>$packer->{archive}"; my ($toc_str, $toc_data) = ('', ''); - my @data_d = (); - my @data_l = (); - my @data_f = (); + my @data_d; + my @data_l; + my @data_f; foreach my $file (@{$packer->{files}}) { $packer->{data}{$file} or die "packdrake: internal error on $_\n"; -- cgit v1.2.1