* Fix for bug #23954

# MFH?

diff --git a/pear/PEAR/Registry.php b/pear/PEAR/Registry.php
index 252b0e7f58b03d29e4e8256f18ea187019559719..482e0f369ea9e982a2f9ece9105fcbc3fb2e73b9 100644 (file)
--- a/pear/PEAR/Registry.php
+++ b/pear/PEAR/Registry.php
@@ -155,7 +155,23 @@ class PEAR_Registry extends PEAR
      */
     function _packageFileName($package)
     {
-        return "{$this->statedir}/{$package}.reg";
+        if (is_file("{$this->statedir}/{$package}.reg")) {
+            return "{$this->statedir}/{$package}.reg";
+        }
+        /**
+         * Iterate through the directory to find the matching
+         * registry file, even if it has been provided in
+         * another case (foobar vs. FooBar)
+         */
+        $package = strtolower($package);
+        if ($handle = opendir($this->statedir)) {
+            while (false !== ($file = readdir($handle))) {
+               if (strtolower($file) == $package . ".reg") {
+                   return "{$this->statedir}/{$file}";
+               }
+            }
+            closedir($handle);
+        }
     }
 
     // }}}