Change 14484: Prettier printing from Michael Schwern.

[Jarkko Hietaniemi]

Change 14484 by jhi@alpha on 2002/01/28 23:15:22

        Prettier printing from Michael Schwern.

Affected files ...

.... //depot/perl/t/test.pl#37 edit

Differences ...

==== //depot/perl/t/test.pl#37 (text) ====
Index: perl/t/test.pl
--- perl/t/test.pl.~1~  Mon Jan 28 16:30:06 2002
+++ perl/t/test.pl      Mon Jan 28 16:30:06 2002
@@ -453,7 +453,11 @@
         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");
 }
End of Patch.