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

diff --git a/contrib/adddepend/adddepend b/contrib/adddepend/adddepend
index dafcceb13fbec5498c9976727deebb37c0bf8682..e007d448fdcf7cea56e7f00ff7070d2c7ff3cf2e 100755 (executable)
--- a/contrib/adddepend/adddepend
+++ b/contrib/adddepend/adddepend
@@ -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";
                        }