You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
34 lines
1.3 KiB
34 lines
1.3 KiB
# NOTE: Derived from ../LIB\DynaLoader.pm.
|
|
# Changes made here will be lost when autosplit is run again.
|
|
# See AutoSplit.pm.
|
|
package DynaLoader;
|
|
|
|
#line 349 "../LIB\DynaLoader.pm (autosplit into ..\lib\auto\DynaLoader\dl_expandspec.al)"
|
|
sub dl_expandspec {
|
|
my($spec) = @_;
|
|
# Optional function invoked if DynaLoader.pm sets $do_expand.
|
|
# Most systems do not require or use this function.
|
|
# Some systems may implement it in the dl_*.xs file in which case
|
|
# this autoload version will not be called but is harmless.
|
|
|
|
# This function is designed to deal with systems which treat some
|
|
# 'filenames' in a special way. For example VMS 'Logical Names'
|
|
# (something like unix environment variables - but different).
|
|
# This function should recognise such names and expand them into
|
|
# full file paths.
|
|
# Must return undef if $spec is invalid or file does not exist.
|
|
|
|
my $file = $spec; # default output to input
|
|
|
|
if ($Is_VMS) { # dl_expandspec should be defined in dl_vms.xs
|
|
require Carp;
|
|
Carp::croak("dl_expandspec: should be defined in XS file!\n");
|
|
} else {
|
|
return undef unless -f $file;
|
|
}
|
|
print STDERR "dl_expandspec($spec) => $file\n" if $dl_debug;
|
|
$file;
|
|
}
|
|
|
|
# end of DynaLoader::dl_expandspec
|
|
1;
|