diff -pru perl-5.8.7-min-patched/os2/OS2/REXX/DLL/Changes perl-5.8.7-patched/os2/OS2/REXX/DLL/Changes
--- perl-5.8.7-min-patched/os2/OS2/REXX/DLL/Changes	Thu Jan  1 09:53:42 2004
+++ perl-5.8.7-patched/os2/OS2/REXX/DLL/Changes	Mon Nov 27 20:59:10 2006
@@ -2,3 +2,5 @@
 	Split out of OS2::REXX
 0.02:
 	New methods libPath_find(), has_f32(), handle() and fullname().
+1.03:
+	New flag 0x8 for "return all" for libPath_find
diff -pru perl-5.8.7-min-patched/os2/OS2/REXX/DLL/DLL.pm perl-5.8.7-patched/os2/OS2/REXX/DLL/DLL.pm
--- perl-5.8.7-min-patched/os2/OS2/REXX/DLL/DLL.pm	Thu Jan  1 09:53:42 2004
+++ perl-5.8.7-patched/os2/OS2/REXX/DLL/DLL.pm	Mon Nov 27 20:59:10 2006
@@ -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;
 }
