The output from runperl on VMS has extra linefeeds in it at the present time.

This patch removes them, which makes the test pass.

-John
[EMAIL PROTECTED]
Personal Opinion Only
--- /rsync_root/perl/ext/re/t/regop.t   Mon Feb 26 11:10:34 2007
+++ ext/re/t/regop.t    Tue Aug 21 20:27:37 2007
@@ -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

Reply via email to