This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/test.pl: fresh_perl has only 2 args
authorKarl Williamson <khw@cpan.org>
Fri, 17 Jan 2020 15:39:39 +0000 (08:39 -0700)
committerKarl Williamson <khw@cpan.org>
Sun, 19 Jan 2020 05:07:04 +0000 (22:07 -0700)
So referring to the "third" is wrong.

t/test.pl

index 321ae0f..2c6fc95 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -957,7 +957,7 @@ sub fresh_perl {
     # returned, with $? set to the exit code.  Unless overridden, stderr is
     # redirected to stdout.
 
-    die sprintf "Third argument to fresh_perl_.* must be hashref of args to fresh_perl (or {})"
+    die sprintf "Second argument to fresh_perl_.* must be hashref of args to fresh_perl (or {})"
         unless !(defined $runperl_args) || ref($runperl_args) eq 'HASH';
 
     # Given the choice of the mis-parsable {}