5 my $name = "auto/$AUTOLOAD.al";
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){
17 elsif ($AUTOLOAD =~ /::DESTROY$/) {
18 eval "sub $AUTOLOAD {}";