Add a sanity check to Config::AUTOLOAD to prevent infinte loops if

Configure_heavy.pl gets truncated.

p4raw-id: //depot/perl@24982

1 files changed, 3 insertions, 1 deletions

diff --git a/configpm b/configpm
index ab26eefe40..728e012d64 100755
--- a/configpm
+++ b/configpm
@@ -617,13 +617,15 @@ if ($Common{byteorder}) {
 }
 my $fast_config = join '', map { "    $_,\n" } sort values %Common;
 
+# Sanity check needed to stop an infite loop if Config_heavy.pl fails to define
+# &launcher for some reason (eg it got truncated)
 print CONFIG sprintf <<'ENDOFTIE', $fast_config;
 
 sub DESTROY { }
 
 sub AUTOLOAD {
     require 'Config_heavy.pl';
-    goto \&launcher;
+    goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/;
     die "&Config::AUTOLOAD failed on $Config::AUTOLOAD";
 }