I was fooled for a while, somebody else might be too.

p4raw-id: //depot/perl@15736

diff --git a/t/test.pl b/t/test.pl
index debce6e..877e5a6 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -401,6 +401,7 @@ sub runperl {
     return $result;
 }
 
+*run_perl = \&runperl; # Nice alias.
 
 sub DIE {
     print STDERR "# @_\n";