diff options
Diffstat (limited to 'lib/Test/Harness.pm')
| -rw-r--r-- | lib/Test/Harness.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index 18ee902439..e0c4dbe3f7 100644 --- a/lib/Test/Harness.pm +++ b/lib/Test/Harness.pm @@ -554,7 +554,7 @@ on TTY. The width is the width of the "yada/blah..." string. sub _mk_leader { my ($te, $width) = @_; - chop($te); # XXX chomp? + $te =~ s/\.\w+$/./; if ($^O eq 'VMS') { $te =~ s/^.*\.t\./\[.t./s; } my $blank = (' ' x 77); |