From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 28 Jan 2002 23:15:22 +0000 (+0000)
Subject: Prettier printing from Michael Schwern.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e2c38acd50687b4f8312524543d05a81d8096797;p=p5sagit%2Fp5-mst-13.2.git

Prettier printing from Michael Schwern.

p4raw-id: //depot/perl@14484
---

diff --git a/t/test.pl b/t/test.pl
index a00dd5e..e737665 100644
--- 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");
 }