[PATCH] Wineconf handling of config with several Windows install

[Gerard Patel]

To be reviewed by people actually knowing Perl :-)

ChangeLog:

	* tools/wineconf
               Better handling of configuration with several Windows
installations

-------------- next part --------------
Index: tools/wineconf
===================================================================
RCS file: /home/wine/wine/tools/wineconf,v
retrieving revision 1.10
diff -u -r1.10 wineconf
--- tools/wineconf	2001/06/07 22:25:06	1.10
+++ tools/wineconf	2001/12/03 15:09:51
@@ -146,6 +146,7 @@
     my(@FATD)=@::FatDrives;
     my(@wininis) = ();
     my ($winini);
+    my ($ThisDrive);
 
     if (!$::opt_windir && !$::opt_fast && !$::opt_thorough) {
 	$::opt_thorough++;
@@ -161,8 +162,7 @@
     }
     elsif ($::opt_thorough) {
 	if ($::opt_debug) { print STDERR "DEBUG: Num FATD = ", $#FATD+1, "\n"; }
-	foreach(@FATD) {
-	    my $ThisDrive = shift(@FATD);
+       foreach $ThisDrive (@FATD) {
 	    my $MntPoint = $ThisDrive->[1];
 	    push(@wininis, `find $MntPoint -iname win.ini -print`);
 	}
-------------- next part --------------