[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

diff --git a/ext/re/t/regop.t b/ext/re/t/regop.t
index 827b577..7fe7b20 100644 (file)
--- 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