cvs: php-src(PHP_5) /pear/PEAR Registry.php

pajoye          Wed Jun 25 04:56:41 2003 EDT

  Modified files:              (Branch: PHP_5)
    /php-src/pear/PEAR  Registry.php 
  Log:
  - 1st try to restore the files
  
  
Index: php-src/pear/PEAR/Registry.php
diff -u php-src/pear/PEAR/Registry.php:1.42 
php-src/pear/PEAR/Registry.php:1.42.2.1
--- php-src/pear/PEAR/Registry.php:1.42 Sun Jun 22 15:14:16 2003
+++ php-src/pear/PEAR/Registry.php      Wed Jun 25 04:56:41 2003
@@ -18,7 +18,7 @@
 // |                                                                      |
 // +----------------------------------------------------------------------+
 //
-// $Id: Registry.php,v 1.42 2003/06/22 19:14:16 mj Exp $
+// $Id: Registry.php,v 1.42.2.1 2003/06/25 08:56:41 pajoye Exp $
 
 /*
 TODO:
@@ -98,6 +98,18 @@
         $this->statedir = $pear_install_dir.$ds.'.registry';
         $this->filemap  = $pear_install_dir.$ds.'.filemap';
         $this->lockfile = $pear_install_dir.$ds.'.lock';
+
+        // XXX Compatibility code should be removed in the future
+        // rename all registry files if any to lowercase
+        if (!OS_WINDOWS && $handle = opendir($this->statedir)) {
+            $dest = $this->statedir . DIRECTORY_SEPARATOR;
+            while (false !== ($file = readdir($handle))) {
+                if (preg_match('/^.*[A-Z].*\.reg$/', $file)) {
+                    rename($dest . $file, $dest . strtolower($file));
+                }
+            }
+            closedir($handle);
+        }
         if (!file_exists($this->filemap)) {
             $this->rebuildFileMap();
         }



-- 
PEAR CVS Mailing List (http://pear.php.net/)
To unsubscribe, visit: http://www.php.net/unsub.php