t/test.pl: fresh_perl has only 2 args

[perl5.git] / t / test.pl

diff --git a/t/test.pl b/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 {}