Index: typo3/sysext/dbal/class.ux_t3lib_db.php
===================================================================
--- typo3/sysext/dbal/class.ux_t3lib_db.php	(Revision 7047)
+++ typo3/sysext/dbal/class.ux_t3lib_db.php	(Arbeitskopie)
@@ -2075,7 +2075,7 @@
 				break;
 			case 'adodb':
 				$sqlTables = $this->handlerInstance['_DEFAULT']->MetaTables('TABLES');
-				while (list($k, $theTable) = each($sqlTables)) {
+				foreach ($sqlTables as $k => $theTable) {
 					if (preg_match('/BIN\$/', $theTable)) continue; // skip tables from the Oracle 10 Recycle Bin
 					$whichTables[$theTable] = $theTable;
 				}
@@ -2216,7 +2216,7 @@
 			case 'adodb':
 				$keyRows = $this->handlerInstance[$this->lastHandlerKey]->MetaIndexes($tableName);
 				if ($keyRows !== FALSE) {
-					while (list($k, $theKey) = each($keyRows)) {
+					foreach ($keyRows as $k => $theKey) {
 						$theKey['Table'] = $tableName;
 						$theKey['Non_unique'] = (int) !$theKey['unique'];
 						$theKey['Key_name'] = str_replace($tableName.'_','',$k);
@@ -2232,7 +2232,7 @@
 	
 							// now map multiple fields into multiple rows (we mimic MySQL, remember...)
 						$keycols = $theKey['columns'];
-						while (list($c, $theCol) = each($keycols)) {
+						foreach ($keycols as $c => $theCol) {
 							$theKey['Seq_in_index'] = $c+1;
 							$theKey['Column_name'] = $theCol;
 							$output[] = $theKey;
@@ -2256,7 +2256,7 @@
 	
 					// now map multiple fields into multiple rows (we mimic MySQL, remember...)
 				if ($priKeyRow !== FALSE) {
-					while (list($c, $theCol) = each($priKeyRow)) {
+					foreach ($priKeyRow as $c => $theCol) {
 						$theKey['Seq_in_index'] = $c+1;
 						$theKey['Column_name'] = $theCol;
 						$output[] = $theKey;