[p5sagit/p5-mst-13.2.git] / lib / AutoLoader.pm

package AutoLoader;
use Carp;

AUTOLOAD {
    my $name = "auto/$AUTOLOAD.al";
    $name =~ s#::#/#g;
    eval {require $name};
    if ($@) {
	# The load might just have failed because the filename was too
	# long for some old SVR3 systems which treat long names as errors.
	# If we can succesfully truncate a long name then it's worth a go.
	# There is a slight risk that we could pick up the wrong file here
	# but autosplit should have warned about that when splitting.
	if ($name =~ s/(\w{12,})\.al$/substr($1,0,11).".al"/e){
	    eval {require $name};
	}
	elsif ($AUTOLOAD =~ /::DESTROY$/) {
	    eval "sub $AUTOLOAD {}";
	}
	if ($@){
	    $@ =~ s/ at .*\n//;
	    croak $@;
	}
    }
    goto &$AUTOLOAD;
}

1;
Commit	Line	Data
8990e307	1	package AutoLoader;
a0d0e21e	2	use Carp;
8990e307	3
	4	AUTOLOAD {
	5	my $name = "auto/$AUTOLOAD.al";
	6	$name =~ s#::#/#g;
	7	eval {require $name};
	8	if ($@) {
a0d0e21e	9	# The load might just have failed because the filename was too
	10	# long for some old SVR3 systems which treat long names as errors.
	11	# If we can succesfully truncate a long name then it's worth a go.
	12	# There is a slight risk that we could pick up the wrong file here
	13	# but autosplit should have warned about that when splitting.
	14	if ($name =~ s/(\w{12,})\.al$/substr($1,0,11).".al"/e){
	15	eval {require $name};
	16	}
748a9306	17	elsif ($AUTOLOAD =~ /::DESTROY$/) {
	18	eval "sub $AUTOLOAD {}";
	19	}
a0d0e21e	20	if ($@){
	21	$@ =~ s/ at .*\n//;
	22	croak $@;
	23	}
8990e307	24	}
	25	goto &$AUTOLOAD;
	26	}
	27
	28	1;