This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix VMS test fail
authorHugo van der Sanden <hv@crypt.org>
Sat, 25 Feb 2017 10:42:17 +0000 (10:42 +0000)
committerHugo van der Sanden <hv@crypt.org>
Sun, 26 Feb 2017 13:04:31 +0000 (13:04 +0000)
d7186add added a runperl() test that breaks command line length limits for
VMS. Switch to fresh_perl() instead, so the prog is put in a file for us.

t/comp/parser_run.t

index 2543f49..e74644d 100644 (file)
@@ -14,14 +14,14 @@ plan(1);
 
 # [perl #130814] can reallocate lineptr while looking ahead for
 # "Missing $ on loop variable" diagnostic.
-my $result = runperl(
-    prog => " foreach m0\n\$" . ("0" x 0x2000),
-    stderr => 1,
+my $result = fresh_perl(
+    " foreach m0\n\$" . ("0" x 0x2000),
+    { stderr => 1 },
 );
-is($result, <<EXPECT);
-syntax error at -e line 3, near "foreach m0
+is($result . "\n", <<EXPECT);
+syntax error at - line 3, near "foreach m0
 "
-Identifier too long at -e line 3.
+Identifier too long at - line 3.
 EXPECT
 
 __END__