This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add a sanity check to Config::AUTOLOAD to prevent infinte loops if
authorNicholas Clark <nick@ccl4.org>
Sat, 25 Jun 2005 17:58:26 +0000 (17:58 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 25 Jun 2005 17:58:26 +0000 (17:58 +0000)
Configure_heavy.pl gets truncated.

p4raw-id: //depot/perl@24982

configpm

index ab26eef..728e012 100755 (executable)
--- 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";
 }