diff options
| author | Nicholas Clark <nick@ccl4.org> | 2001-11-07 14:36:32 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-07 13:43:33 +0000 |
| commit | 811a02aab58b635b44d444bf553252380c338889 (patch) | |
| tree | 73db092b89835b6f833ad87feba8d4f5545827a7 /t | |
| parent | 0cb90816a57536a8f9d92580939234780790f6bb (diff) | |
| download | perl-811a02aab58b635b44d444bf553252380c338889.tar.gz | |
Re: SunOS 5.8 is FUN! (and not quite ok, either) - @12876, gcc and suncc
Message-ID: <20011107143631.I24980@plum.flirble.org>
p4raw-id: //depot/perl@12885
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pack.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/pack.t b/t/op/pack.t index 7cc4353e96..d0442034b2 100755 --- a/t/op/pack.t +++ b/t/op/pack.t @@ -409,7 +409,8 @@ sub numbers_with_total { print "ok $test # unpack '%$_$format' gave $sum," . " expected $calc_sum\n"; } else { - print "not ok $test # For list (" . join (", ", @_) . ") (total $total)" + my $text = ref $total ? &$total($len) : $total; + print "not ok $test # For list (" . join (", ", @_) . ") (total $text)" . " packed with $format unpack '%$_$format' gave $sum," . " expected $calc_sum\n"; } |