diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-02-17 15:54:37 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-02-17 15:54:37 +0000 |
commit | 9d55a4cf517a832c74e85179eac4239f9be8d2e7 (patch) | |
tree | 822f43e201b5fe5f20d07c831a0042b7280f85c5 /Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_expandspec.al | |
parent | 2acf4c9396e980e00adbdc02f5a70eefc7122b55 (diff) |
New tlperl part VII
git-svn-id: svn://tug.org/texlive/trunk@21429 c570f23f-e606-0410-a88d-b1316a301751
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, 31 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_expandspec.al b/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_expandspec.al new file mode 100644 index 00000000000..f4b70fb0d6d --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_expandspec.al @@ -0,0 +1,31 @@ +# 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; |