diff options
| author | John E. Malmberg <wb8tyw@qsl.net> | 2007-08-21 15:38:41 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2007-08-22 11:53:47 +0000 |
| commit | a8d5f2f363963e6c4225c64592553248c4eb0d34 (patch) | |
| tree | 8073431d2cb64138eae3bb313fb92b76175a1efd /ext/re | |
| parent | 4f3b9739f9aa4291e372527205413c88e84985b9 (diff) | |
| download | perl-a8d5f2f363963e6c4225c64592553248c4eb0d34.tar.gz | |
[patch@31739] regop.t fix for VMS
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-id: <46CB93A1.2090407@qsl.net>
p4raw-link: @31739 on //depot/perl: c83e6f195f905dd4809cef6ea71ef6cef8c9f7b8
p4raw-id: //depot/perl@31748
Diffstat (limited to 'ext/re')
| -rw-r--r-- | ext/re/t/regop.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/re/t/regop.t b/ext/re/t/regop.t index 827b577c87..7fe7b20462 100644 --- a/ext/re/t/regop.t +++ b/ext/re/t/regop.t @@ -15,6 +15,8 @@ BEGIN { require "./test.pl"; } our $NUM_SECTS; chomp(my @strs= grep { !/^\s*\#/ } <DATA>); my $out = runperl(progfile => "../ext/re/t/regop.pl", stderr => 1 ); +# VMS currently embeds linefeeds in the output. +$out =~ s/\cJ//g if $^O = 'VMS'; my @tests = grep { /\S/ } split /(?=Compiling REx)/, $out; # on debug builds we get an EXECUTING... message in there at the top shift @tests |