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 (file)
--- 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