Prettier printing from Michael Schwern.

p4raw-id: //depot/perl@14484

diff --git a/t/test.pl b/t/test.pl
index a00dd5e..e737665 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -453,7 +453,11 @@ sub _fresh_perl {
         print STDERR "# STATUS: $status\n";
     }
 
-    ($name) = $prog =~ /^(.{1,35})/ unless $name;
+    # Use the first line of the program as a name if none was given
+    unless( $name ) {
+        ($first_line, $name) = $prog =~ /^((.{1,50}).*)/;
+        $name .= '...' if length $first_line > length $name;
+    }
 
     _ok($pass, _where(), "fresh_perl - $name");
 }