From f2f140bbe9293fda66519844f83d47b3f8efbe92 Mon Sep 17 00:00:00 2001
From: Martin Jansen <mj@php.net>
Date: Sun, 22 Jun 2003 19:14:16 +0000
Subject: [PATCH] * Fix for bug #23954

# MFH?
---
 pear/PEAR/Registry.php | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/pear/PEAR/Registry.php b/pear/PEAR/Registry.php
index 252b0e7f58..482e0f369e 100644
--- 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);
+        }
     }
 
     // }}}
-- 
2.40.0