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

diff --git a/t/op/pack.t b/t/op/pack.t
index 7cc4353..d044203 100755 (executable)
--- 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";
       }