|
1 | 1 | #!/usr/bin/perl |
2 | | -# $Id: adddepend,v 1.2 2002/10/18 18:41:19 momjian Exp $ |
| 2 | +# $Id: adddepend,v 1.3 2002/12/02 00:28:29 tgl Exp $ |
3 | 3 |
|
4 | 4 | # Project exists to assist PostgreSQL users with their structural upgrade |
5 | 5 | # from 7.2 (or prior) to 7.3 (possibly later). Must be run against a 7.3 |
@@ -221,7 +221,7 @@ sub findForeignKeys |
221 | 221 | my$ref_cols ="$fcolumn_name"; |
222 | 222 |
|
223 | 223 | # Perhaps there is more than a single column |
224 | | -while ($lcolumn_name =pop(@junk)and$fcolumn_name =pop(@junk)) { |
| 224 | +while ($lcolumn_name =shift(@junk)and$fcolumn_name =shift(@junk)) { |
225 | 225 | $key_cols .=",$lcolumn_name"; |
226 | 226 | $ref_cols .=",$fcolumn_name"; |
227 | 227 | } |
|