From: John E. Malmberg <wb8tyw@qsl.net>
Date: Tue, 21 Aug 2007 20:38:41 +0000 (-0500)
Subject: [patch@31739] regop.t fix for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a8d5f2f363963e6c4225c64592553248c4eb0d34;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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