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 ++++---- rpmtools.spec | 5 ++++- 2 files changed, 8 insertions(+), 5 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"; diff --git a/rpmtools.spec b/rpmtools.spec index ec42ba2..81b6644 100644 --- a/rpmtools.spec +++ b/rpmtools.spec @@ -1,5 +1,5 @@ %define name rpmtools -%define release 4mdk +%define release 5mdk # do not modify here, see Makefile in the CVS %define version 4.5 @@ -55,6 +55,9 @@ rm -rf $RPM_BUILD_ROOT %{_mandir}/*/* %changelog +* Thu Nov 28 2002 Pixel 4.5-5mdk +- packdrake.pm is now perl_checker compliant + * Tue Nov 26 2002 Pixel 4.5-4mdk - packdrake.pm is now perl_checker compliant -- cgit v1.2.1