lib/perl5/5.6.1/msys/auto/DynaLoader/dl_findfile.al

   1 # NOTE: Derived from ../../lib/DynaLoader.pm.
   2 # Changes made here will be lost when autosplit again.
   3 # See AutoSplit.pm.
   4 package DynaLoader;
   5
   6 #line 241 "../../lib/DynaLoader.pm (autosplit into ../../lib/auto/DynaLoader/dl_findfile.al)"
   7 sub dl_findfile {
   8     # Read ext/DynaLoader/DynaLoader.doc for detailed information.
   9     # This function does not automatically consider the architecture
  10     # or the perl library auto directories.
  11     my (@args) = @_;
  12     my (@dirs,  $dir);   # which directories to search
  13     my (@found);         # full paths to real files we have found
  14     my $dl_ext= 'dll'; # $Config::Config{'dlext'} suffix for perl extensions
  15     my $dl_so = 'dll'; # $Config::Config{'so'} suffix for shared libraries
  16
  17     print STDERR "dl_findfile(@args)\n" if $dl_debug;
  18
  19     # accumulate directories but process files as they appear
  20     arg: foreach(@args) {
  21         #  Special fast case: full filepath requires no search
  22         if ($Is_VMS && m%[:>/\]]% && -f $_) {
  23             push(@found,dl_expandspec(VMS::Filespec::vmsify($_)));
  24             last arg unless wantarray;
  25             next;
  26         }
  27         elsif ($Is_MacOS) {
  28             if (m/:/ && -f $_) {
  29                 push(@found,$_);
  30                 last arg unless wantarray;
  31             }
  32         }
  33         elsif (m:/: && -f $_ && !$do_expand) {
  34             push(@found,$_);
  35             last arg unless wantarray;
  36             next;
  37         }
  38
  39         # Deal with directories first:
  40         #  Using a -L prefix is the preferred option (faster and more robust)
  41         if (m:^-L:) { s/^-L//; push(@dirs, $_); next; }
  42
  43         if ($Is_MacOS) {
  44             #  Otherwise we try to try to spot directories by a heuristic
  45             #  (this is a more complicated issue than it first appears)
  46             if (m/:/ && -d $_) {   push(@dirs, $_); next; }
  47             #  Only files should get this far...
  48             my(@names, $name);    # what filenames to look for
  49             s/^-l//;
  50             push(@names, $_);
  51             foreach $dir (@dirs, @dl_library_path) {
  52                 next unless -d $dir;
  53                 $dir =~ s/^([^:]+)$/:$1/;
  54                 $dir =~ s/:$//;
  55                 foreach $name (@names) {
  56                     my($file) = "$dir:$name";
  57                     print STDERR " checking in $dir for $name\n" if $dl_debug;
  58                     if (-f $file) {
  59                         push(@found, $file);
  60                         next arg; # no need to look any further
  61                     }
  62                 }
  63             }
  64             next;
  65         }
  66
  67         #  Otherwise we try to try to spot directories by a heuristic
  68         #  (this is a more complicated issue than it first appears)
  69         if (m:/: && -d $_) {   push(@dirs, $_); next; }
  70
  71         # VMS: we may be using native VMS directory syntax instead of
  72         # Unix emulation, so check this as well
  73         if ($Is_VMS && /[:>\]]/ && -d $_) {   push(@dirs, $_); next; }
  74
  75         #  Only files should get this far...
  76         my(@names, $name);    # what filenames to look for
  77         if (m:-l: ) {          # convert -lname to appropriate library name
  78             s/-l//;
  79             push(@names,"lib$_.$dl_so");
  80             push(@names,"lib$_.a");
  81         } else {                # Umm, a bare name. Try various alternatives:
  82             # these should be ordered with the most likely first
  83             push(@names,"$_.$dl_ext")    unless m/\.$dl_ext$/o;
  84             push(@names,"$_.$dl_so")     unless m/\.$dl_so$/o;
  85             push(@names,"lib$_.$dl_so")  unless m:/:;
  86             push(@names,"$_.a")          if !m/\.a$/ and $dlsrc eq "dl_dld.xs";
  87             push(@names, $_);
  88         }
  89         foreach $dir (@dirs, @dl_library_path) {
  90             next unless -d $dir;
  91             chop($dir = VMS::Filespec::unixpath($dir)) if $Is_VMS;
  92             foreach $name (@names) {
  93                 my($file) = "$dir/$name";
  94                 print STDERR " checking in $dir for $name\n" if $dl_debug;
  95                 $file = ($do_expand) ? dl_expandspec($file) : (-f $file && $file);
  96                 #$file = _check_file($file);
  97                 if ($file) {
  98                     push(@found, $file);
  99                     next arg; # no need to look any further
 100                 }
 101             }
 102         }
 103     }
 104     if ($dl_debug) {
 105         foreach(@dirs) {
 106             print STDERR " dl_findfile ignored non-existent directory: $_\n" unless -d $_;
 107         }
 108         print STDERR "dl_findfile found: @found\n";
 109     }
 110     return $found[0] unless wantarray;
 111     @found;
 112 }
 113
 114 # end of DynaLoader::dl_findfile
 115 1;