Change 31748 by [EMAIL PROTECTED] on 2007/08/22 11:53:47
Subject: [EMAIL PROTECTED] regop.t fix for VMS
From: "John E. Malmberg" <[EMAIL PROTECTED]>
Date: Tue, 21 Aug 2007 20:38:41 -0500
Message-id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/re/t/regop.t#9 edit
Differences ...
==== //depot/perl/ext/re/t/regop.t#9 (text) ====
Index: perl/ext/re/t/regop.t
--- perl/ext/re/t/regop.t#8~30413~ 2007-02-26 09:10:33.000000000 -0800
+++ perl/ext/re/t/regop.t 2007-08-22 04:53:47.000000000 -0700
@@ -15,6 +15,8 @@
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
End of Patch.
