Line | |
---|
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;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.