Commit | Line | Data |
---|---|---|
920dae64 AT |
1 | # NOTE: Derived from ../../lib/DynaLoader.pm. |
2 | # Changes made here will be lost when autosplit is run again. | |
3 | # See AutoSplit.pm. | |
4 | package DynaLoader; | |
5 | ||
6 | #line 377 "../../lib/DynaLoader.pm (autosplit into ../../lib/auto/DynaLoader/dl_expandspec.al)" | |
7 | sub dl_expandspec { | |
8 | my($spec) = @_; | |
9 | # Optional function invoked if DynaLoader.pm sets $do_expand. | |
10 | # Most systems do not require or use this function. | |
11 | # Some systems may implement it in the dl_*.xs file in which case | |
12 | # this autoload version will not be called but is harmless. | |
13 | ||
14 | # This function is designed to deal with systems which treat some | |
15 | # 'filenames' in a special way. For example VMS 'Logical Names' | |
16 | # (something like unix environment variables - but different). | |
17 | # This function should recognise such names and expand them into | |
18 | # full file paths. | |
19 | # Must return undef if $spec is invalid or file does not exist. | |
20 | ||
21 | my $file = $spec; # default output to input | |
22 | ||
23 | if ($Is_VMS) { # dl_expandspec should be defined in dl_vms.xs | |
24 | require Carp; | |
25 | Carp::croak("dl_expandspec: should be defined in XS file!\n"); | |
26 | } else { | |
27 | return undef unless -f $file; | |
28 | } | |
29 | print STDERR "dl_expandspec($spec) => $file\n" if $dl_debug; | |
30 | $file; | |
31 | } | |
32 | ||
33 | # end of DynaLoader::dl_expandspec | |
34 | 1; |