D:\>perl -V:useperlio
&Config::AUTOLOAD failed on Config::launcher at E:/Perl817/lib/Config.pm line 72.
####
sub AUTOLOAD {
my $config_heavy = 'Config_heavy.pl';
if (defined &ActivePerl::_CONFIG_HEAVY) {
$config_heavy = ActivePerl::_CONFIG_HEAVY();
}
require $config_heavy;
print "\$Config::AUTOLOAD: $Config::AUTOLOAD\n"; # inserted by syphilis
goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/;
die "&Config::AUTOLOAD failed on $Config::AUTOLOAD"; # line 73, was line 72
}
####
sub launcher {
print "\n\nrunning launcher()\n\n"; # inserted by syphilis
undef &AUTOLOAD;
goto \&$Config::AUTOLOAD;
}
####
D:\>perl -V:useperlio
$Config::AUTOLOAD: Config::fetch_string
$Config::AUTOLOAD: Config::launcher
$Config::AUTOLOAD: Config::launcher
&Config::AUTOLOAD failed on Config::launcher at E:/Perl817/lib/Config.pm line 73.
####
D:\>perl -V:useperlio
$Config::AUTOLOAD: Config::fetch_string
running launcher
useperlio='define';