From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 7 Nov 2001 14:36:32 +0000 (+0000)
Subject: Re: SunOS 5.8 is FUN! (and not quite ok, either) - @12876, gcc and suncc
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=811a02aab58b635b44d444bf553252380c338889;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";
       }