diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_expandspec.al')
-rw-r--r-- | Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_expandspec.al | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_expandspec.al b/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_expandspec.al deleted file mode 100644 index f4b70fb0d6d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_expandspec.al +++ /dev/null @@ -1,31 +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 318 "..\..\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 - - - return undef unless -f $file; - - print STDERR "dl_expandspec($spec) => $file\n" if $dl_debug; - $file; -} - -# end of DynaLoader::dl_expandspec -1; |