diff options
| author | tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2012-12-18 00:14:35 +0000 |
|---|---|---|
| committer | tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2012-12-18 00:14:35 +0000 |
| commit | 6d0ef29103db3744faa229875154172da9157c47 (patch) | |
| tree | 78593d21e54b9f21f11968f350ede303cf3a7789 | |
| parent | aabbcae2eb65957110d7ec911bbd44dfdf35d8a5 (diff) | |
| download | perl-RPM4-6d0ef29103db3744faa229875154172da9157c47.tar perl-RPM4-6d0ef29103db3744faa229875154172da9157c47.tar.gz perl-RPM4-6d0ef29103db3744faa229875154172da9157c47.tar.bz2 perl-RPM4-6d0ef29103db3744faa229875154172da9157c47.tar.xz perl-RPM4-6d0ef29103db3744faa229875154172da9157c47.zip | |
fix a verbose warning
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@240 971eb68f-4bfb-0310-8326-d2484c010a4c
| -rw-r--r-- | RPM4/t/05transaction.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/RPM4/t/05transaction.t b/RPM4/t/05transaction.t index f91b025..f4d194b 100644 --- a/RPM4/t/05transaction.t +++ b/RPM4/t/05transaction.t @@ -71,7 +71,7 @@ ok($ts->transcheck == 0, "Checking transaction works"); ok($ts->transorder == 0, "Run transaction order"); ok(defined($ts->transflag([qw(JUSTDB)])), "Set transflags"); -ok($ts->transrun(sub { my %a = @_; print STDERR "$a{what} $a{filename} $a{amount} / $a{total}\n" }) == 0, "Running transaction justdb"); +ok($ts->transrun(sub { my %a = @_; print STDERR "$a{what} $a{amount} / $a{total}\n" }) == 0, "Running transaction justdb"); #ok($ts->injectheader($hd) == 0, "Injecting header in a db"); |