diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-28 01:01:25 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-28 01:01:25 +0000 |
| commit | 8acce9a518959b70cd740fafaea69c44578e13b8 (patch) | |
| tree | 57fd1bc3de4fbbf43021f4618facbfb57c860463 /packdrake-pm | |
| parent | f5e936cc6c5cb364b774149c79e6bdbb5d3d3d15 (diff) | |
| download | rpmtools-8acce9a518959b70cd740fafaea69c44578e13b8.tar rpmtools-8acce9a518959b70cd740fafaea69c44578e13b8.tar.gz rpmtools-8acce9a518959b70cd740fafaea69c44578e13b8.tar.bz2 rpmtools-8acce9a518959b70cd740fafaea69c44578e13b8.tar.xz rpmtools-8acce9a518959b70cd740fafaea69c44578e13b8.zip | |
packdrake.pm is now perl_checker compliant4.5.5
Diffstat (limited to 'packdrake-pm')
| -rw-r--r-- | packdrake-pm/packdrake.pm | 8 |
1 files changed, 4 insertions, 4 deletions
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"; |