diff options
author | tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2012-12-18 00:14:31 +0000 |
---|---|---|
committer | tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2012-12-18 00:14:31 +0000 |
commit | 7ccfd687e6b1554ebcdb123979f005523a1b89b1 (patch) | |
tree | 1dfe48275990559a7652d3b6b45eabe7914b0531 /RPM4/t/09hdlist.t | |
parent | f2b68f33b2083673835a2bcb6307861611bf7a98 (diff) | |
download | perl-RPM4-7ccfd687e6b1554ebcdb123979f005523a1b89b1.tar perl-RPM4-7ccfd687e6b1554ebcdb123979f005523a1b89b1.tar.gz perl-RPM4-7ccfd687e6b1554ebcdb123979f005523a1b89b1.tar.bz2 perl-RPM4-7ccfd687e6b1554ebcdb123979f005523a1b89b1.tar.xz perl-RPM4-7ccfd687e6b1554ebcdb123979f005523a1b89b1.zip |
perl_checker cleanups
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@237 971eb68f-4bfb-0310-8326-d2484c010a4c
Diffstat (limited to 'RPM4/t/09hdlist.t')
-rw-r--r-- | RPM4/t/09hdlist.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/RPM4/t/09hdlist.t b/RPM4/t/09hdlist.t index ce45371..1027b2c 100644 --- a/RPM4/t/09hdlist.t +++ b/RPM4/t/09hdlist.t @@ -7,15 +7,15 @@ use FindBin qw($Bin); use File::Temp qw(tempdir); use File::Glob; -my $testdir = tempdir( CLEANUP => 1 ); +my $testdir = tempdir(CLEANUP => 1); use_ok('RPM4'); use_ok('RPM4::Index'); my @headers; -my $callback = sub { my %arg = @_; defined($arg{header}) and push(@headers, $arg{header}); }; +my $callback = sub { my %arg = @_; defined($arg{header}) and push(@headers, $arg{header}) }; -my @rpms = <$Bin/*.rpm>; +my @rpms = glob("$Bin/*.rpm"); RPM4::parserpms(callback => $callback, rpms => [ @rpms ]); ok(scalar(@headers) == 4, "RPM4::parserpms works"); |