From: Dave Mitchell <davem@fdisolutions.com>
Date: Thu, 5 May 2005 12:06:32 +0000 (+0000)
Subject: stop Math/BigInt/t/bare_mbf.t producing spurious test output
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8af3c3489f0c9ca8d37ebae27991ac4f34dfdb2f;p=p5sagit%2Fp5-mst-13.2.git

stop Math/BigInt/t/bare_mbf.t producing spurious test output

p4raw-id: //depot/perl@24393
---

diff --git a/lib/Math/BigInt/t/bare_mbf.t b/lib/Math/BigInt/t/bare_mbf.t
index 29a73a0..1cd56c0 100644
--- a/lib/Math/BigInt/t/bare_mbf.t
+++ b/lib/Math/BigInt/t/bare_mbf.t
@@ -8,7 +8,7 @@ BEGIN
   $| = 1;
   # to locate the testing files
   my $location = $0; $location =~ s/bare_mbf.t//i;
-  print "$0\n";
+  print "#$0\n";
   if ($ENV{PERL_CORE})
     {
     # testing with the core distribution