Index: typo3/sysext/adodb/adodb/adodb-error.inc.php
===================================================================
--- typo3/sysext/adodb/adodb/adodb-error.inc.php	(Revision 7047)
+++ typo3/sysext/adodb/adodb/adodb-error.inc.php	(Arbeitskopie)
@@ -102,8 +102,7 @@
 			'/Relation [\"\'].*[\"\'] already exists|Cannot insert a duplicate key into (a )?unique index.*|duplicate key violates unique constraint/i'     
 			 	 => DB_ERROR_ALREADY_EXISTS
         );
-	reset($error_regexps);
-    while (list($regexp,$code) = each($error_regexps)) {
+    foreach ($error_regexps as $regexp => $code) {
         if (preg_match($regexp, $errormsg)) {
             return $code;
         }
Index: typo3/sysext/adodb/adodb/contrib/toxmlrpc.inc.php
===================================================================
--- typo3/sysext/adodb/adodb/contrib/toxmlrpc.inc.php	(Revision 7047)
+++ typo3/sysext/adodb/adodb/contrib/toxmlrpc.inc.php	(Arbeitskopie)
@@ -151,7 +151,7 @@
         for ($i = 0; $i < $numfields; $i++) {
             $temp = $fieldinfo->arraymem($i);
             $fld = new ADOFieldObject();
-            while (list($key,$value) = $temp->structeach()) {
+            foreach ($temp->structeach() as $key => $value) {
                 if ($key == "name") $fld->name = $value->scalarval();
                 if ($key == "type") $fld->type = $value->scalarval();
                 if ($key == "max_length") $fld->max_length = $value->scalarval();