From b168915643c565723f94919222da2e208f50aacd Mon Sep 17 00:00:00 2001 From: Tom Lane <tgl@sss.pgh.pa.us> Date: Mon, 2 Dec 2002 00:28:29 +0000 Subject: [PATCH] Fix dependency generation for multicolumn foreign keys. From Adam Buraczewski. --- contrib/adddepend/adddepend | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/contrib/adddepend/adddepend b/contrib/adddepend/adddepend index 68bea7a6b2..5d743ced6e 100755 --- 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"; } -- 2.24.1