diff options
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"); |