summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_expandspec.al
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_expandspec.al')
-rw-r--r--Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_expandspec.al31
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;