From: Martin Jansen <mj@php.net>
Date: Sun, 22 Jun 2003 19:14:16 +0000 (+0000)
Subject: * Fix for bug #23954
X-Git-Tag: RELEASE_1_0_2~88
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=f2f140bbe9293fda66519844f83d47b3f8efbe92;p=php

* Fix for bug #23954

# MFH?
---

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);
+        }
     }
 
     // }}}