--- upgrade.pl.orig	2002-09-05 17:30:48.000000000 +0200
+++ upgrade.pl	2002-11-30 17:53:27.000000000 +0100
@@ -207,7 +207,7 @@
 			my $ref_cols = "$fcolumn_name";
 
 			# Perhaps there is more than a single column
-			while ($lcolumn_name = pop(@junk) and $fcolumn_name = pop(@junk)) {
+			while ($lcolumn_name = shift(@junk) and $fcolumn_name = shift(@junk)) {
 				$key_cols .= ", $lcolumn_name";
 				$ref_cols .= ", $fcolumn_name";
 			}