diff options
Diffstat (limited to 'lib/Test')
| -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 820c661205..6d472a9f4a 100644 --- a/lib/Test/Harness.pm +++ b/lib/Test/Harness.pm @@ -84,7 +84,7 @@ sub runtests { while ($test = shift(@tests)) { $te = $test; chop($te); - if ($^O eq 'VMS') { $te =~ s/^.*\.t\./[.t./; } + if ($^O eq 'VMS') { $te =~ s/^.*\.t\./[.t./s; } my $blank = (' ' x 77); my $leader = "$te" . '.' x (20 - length($te)); my $ml = ""; |