Fix dependency generation for multicolumn foreign keys. From Adam Buraczewski.

diff --git a/contrib/adddepend/adddepend b/contrib/adddepend/adddepend
index 68bea7a6b2d6f834b99c24936d2cde7ff60de710..5d743ced6ebd52fcbb603daf94318805207ff139 100755 (executable)
--- a/contrib/adddepend/adddepend
+++ b/contrib/adddepend/adddepend
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: adddepend,v 1.2 2002/10/18 18:41:19 momjian Exp $
+# $Id: adddepend,v 1.3 2002/12/02 00:28:29 tgl Exp $
 
 # Project exists to assist PostgreSQL users with their structural upgrade 
 # from 7.2 (or prior) to 7.3 (possibly later).  Must be run against a 7.3
@@ -221,7 +221,7 @@ sub findForeignKeys
            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";
            }