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

p4raw-id: //depot/perl@15736

1 files changed, 1 insertions, 0 deletions

diff --git a/t/test.pl b/t/test.pl
index debce6ed1a..877e5a6ab7 100644
--- 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";