home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CLIX - Fazer Clix Custa Nix
/
CLIX-CD.cdr
/
mac
/
lib
/
auto
/
DynaLoader
/
dl_expandspec.al
< prev
next >
Wrap
Text File
|
1998-04-04
|
1KB
|
30 lines
# NOTE: Derived from wintermute:Development:MacPerl:perl:lib:DynaLoader.pm. Changes made here will be lost.
package DynaLoader;
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
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;
}
1;