[Summary view] [Print] [Text view]

   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 321 "../../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      
  24      return undef unless -f $file;
  25      
  26      print STDERR "dl_expandspec($spec) => $file\n" if $dl_debug;
  27      $file;
  28  }
  29  
  30  # end of DynaLoader::dl_expandspec
  31  1;