Index: src/backend/utils/Gen_fmgrtab.pl
===================================================================
RCS file: /projects/cvsroot/pgsql/src/backend/utils/Gen_fmgrtab.pl,v
retrieving revision 1.4
diff -u -r1.4 Gen_fmgrtab.pl
--- src/backend/utils/Gen_fmgrtab.pl	5 Jan 2010 01:06:56 -0000	1.4
+++ src/backend/utils/Gen_fmgrtab.pl	5 Jan 2010 19:14:10 -0000
@@ -56,7 +56,7 @@
 }
 
 my $data = $catalogs->{pg_proc}->{data};
-foreach my $row (@$data)
+while( my $row = shift @$data )
 {
 
     # To construct fmgroids.h and fmgrtab.c, we need to inspect some