# NOTE: Derived from ../../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 my($osname) = $Config{'osname'}; if ($osname eq 'VMS'){ # dl_expandspec should be defined in dl_vms.xs 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;