This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove the line number from the test description output by ReTest.pl
[perl5.git] / t / re / ReTest.pl
index 00e4605..b4338a6 100644 (file)
@@ -69,7 +69,7 @@ sub _ok {
     printf "%sok %d - %s\n",
               ($ok ? "" : "not "),
               ++ $test,
     printf "%sok %d - %s\n",
               ($ok ? "" : "not "),
               ++ $test,
-              "$mess\tLine $line_nr";
+              $mess;
 
     unless ($ok) {
         print "# Failed test at line $line_nr\n" unless defined $TODO;
 
     unless ($ok) {
         print "# Failed test at line $line_nr\n" unless defined $TODO;