diff options
Diffstat (limited to 'Master/tlpkg/tlperl.old/lib/auto/DynaLoader/dl_expandspec.al')
-rw-r--r-- | Master/tlpkg/tlperl.old/lib/auto/DynaLoader/dl_expandspec.al | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/Master/tlpkg/tlperl.old/lib/auto/DynaLoader/dl_expandspec.al b/Master/tlpkg/tlperl.old/lib/auto/DynaLoader/dl_expandspec.al deleted file mode 100644 index 0bea19a3e4d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/DynaLoader/dl_expandspec.al +++ /dev/null @@ -1,34 +0,0 @@ -# NOTE: Derived from ../LIB\DynaLoader.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package DynaLoader; - -#line 377 "../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; |