X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=os2%2FOS2%2FREXX%2FDLL%2FDLL.pm;h=2a2486e863a15c78309bfc50941d85e6915a0f5f;hb=9d419b5f6925ac8219b490513f2c0e4f2d7c7f74;hp=5d8a24ea7bd939817e894cd3d549bfbf974f7157;hpb=dbf3bb275a8c67f06df1e6e24df320e3d78b2d60;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/os2/OS2/REXX/DLL/DLL.pm b/os2/OS2/REXX/DLL/DLL.pm
index 5d8a24e..2a2486e 100644
--- a/os2/OS2/REXX/DLL/DLL.pm
+++ b/os2/OS2/REXX/DLL/DLL.pm
@@ -1,6 +1,6 @@
 package OS2::DLL;
 
-our $VERSION = '1.02';
+our $VERSION = '1.03';
 
 use Carp;
 use XSLoader;
@@ -64,10 +64,11 @@ sub libPath_find {
   push @path, split /;/, OS2::extLibpath	if $flags & 0x1;	# BEGIN
   push @path, split /;/, OS2::libPath		if $flags & 0x2;
   push @path, split /;/, OS2::extLibpath(1)	if $flags & 0x4;	# END
-  s,(?![/\\])$,/, for @path;
-  s,\\,/,g for @path;
+  s,(?![/\\])$,/,  for @path;
+  s,\\,/,g	   for @path;
   $name .= ".dll" unless $name =~ /\.[^\\\/]*$/;
   $_ .= $name for @path;
+  return grep -f $_, @path if $flags & 0x8;
   -f $_ and return $_ for @path;
   return;
 }