diff options
| author | Jan Dubois <jand@activestate.com> | 2011-01-03 18:40:17 -0800 |
|---|---|---|
| committer | Jan Dubois <jand@activestate.com> | 2011-01-03 18:43:13 -0800 |
| commit | f34675060e95e4769b1cbde2b8c8a509667a6cea (patch) | |
| tree | 1bab7768ff7881dcfb15b91dc2dfbfea722ce94c | |
| parent | 43922be28394e54c144181f90742ee90aa83f8e1 (diff) | |
| download | perl-f34675060e95e4769b1cbde2b8c8a509667a6cea.tar.gz | |
Don't install Cygwin code into other platforms
DynaLoader already has its own preprocessor to filter out code that
is only relevant on other platforms, so use it for the change from
commit cc7e77fd
| -rw-r--r-- | ext/DynaLoader/DynaLoader_pm.PL | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/DynaLoader/DynaLoader_pm.PL b/ext/DynaLoader/DynaLoader_pm.PL index cfee108068..a86557e6d6 100644 --- a/ext/DynaLoader/DynaLoader_pm.PL +++ b/ext/DynaLoader/DynaLoader_pm.PL @@ -456,7 +456,9 @@ sub dl_findfile { # these should be ordered with the most likely first push(@names,"$_.$dl_dlext") unless m/\.$dl_dlext$/o; push(@names,"$_.$dl_so") unless m/\.$dl_so$/o; - push(@names,"cyg$_.$dl_so") if !m:/: and $^O eq 'cygwin'; + <<$^O-eq-cygwin>> + push(@names,"cyg$_.$dl_so") unless m:/:; + <</$^O-eq-cygwin>> push(@names,"lib$_.$dl_so") unless m:/:; push(@names,"$_.a") if !m/\.a$/ and $dlsrc eq "dl_dld.xs"; push(@names, $_); |