From 8af3c3489f0c9ca8d37ebae27991ac4f34dfdb2f Mon Sep 17 00:00:00 2001
From: Dave Mitchell <davem@fdisolutions.com>
Date: Thu, 5 May 2005 12:06:32 +0000
Subject: [PATCH] stop Math/BigInt/t/bare_mbf.t producing spurious test output

p4raw-id: //depot/perl@24393
---
 lib/Math/BigInt/t/bare_mbf.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
2.7.4