[perl5.git] / lib / AutoLoader.pm

package AutoLoader;

AUTOLOAD {
    my $name = "auto/$AUTOLOAD.al";
    $name =~ s#::#/#g;
    eval {require $name};
    if ($@) {
	($p,$f,$l) = caller($AutoLevel);
	$@ =~ s/ at .*\n//;
	die "$@ at $f line $l\n";
    }
    goto &$AUTOLOAD;
}

1;
Commit	Line	Data
8990e307 LW	1	package AutoLoader;
	2
	3	AUTOLOAD {
	4	my $name = "auto/$AUTOLOAD.al";
	5	$name =~ s#::#/#g;
	6	eval {require $name};
	7	if ($@) {
	8	($p,$f,$l) = caller($AutoLevel);
	9	$@ =~ s/ at .*\n//;
	10	die "$@ at $f line $l\n";
	11	}
	12	goto &$AUTOLOAD;
	13	}
	14
	15	1;