Select Code to Download

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';
...
    goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/;
    die "&Config::AUTOLOAD failed on $Config::AUTOLOAD"; # line 73, wa
+s 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';