diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-02 20:08:10 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-02 20:08:10 +0000 |
| commit | fe6f1558c7f680030b5f50795459bce8c0b94ba1 (patch) | |
| tree | fa4ecf32f56db337590e06b5c228de3a44c69d65 /lib/Test | |
| parent | f8fb7c905b2ebbea240082c064c2444b482a14f7 (diff) | |
| download | perl-fe6f1558c7f680030b5f50795459bce8c0b94ba1.tar.gz | |
still other multiline match cleanups (from Greg Bacon)
p4raw-id: //depot/perl@5450
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 = ""; |