@@ -145,7 +145,7 @@ sub GenerateFiles {
145145print H" /* fmgroids.h generated for Visual C++ */\n #ifndef FMGROIDS_H\n #define FMGROIDS_H\n\n "
146146open (T," >src\\ backend\\ utils\\ fmgrtab.c" " Could not open fmgrtab.c"
147147print T" /* fmgrtab.c generated for Visual C++ */\n #include\" postgres.h\"\n #include\" utils/fmgrtab.h\"\n\n "
148- foreach my $s (sort {intval( $a -> {oid }) <=> intval( $b -> {oid }) }@fmgr ) {
148+ foreach my $s (sort {$a -> {oid }<=> $b -> {oid }}@fmgr ) {
149149next if $seenit {$s -> {prosrc }};
150150$seenit {$s -> {prosrc }} = 1;
151151print H" #define F_" uc $s -> {prosrc } ." $s ->{oid}\n "
@@ -157,9 +157,8 @@ sub GenerateFiles {
157157my %bmap ;
158158$bmap {' t' ' true'
159159$bmap {' f' ' false'
160- foreach my $s (sort {intval($a -> {oid })<=> intval($b -> {oid })}@fmgr ) {
161- my $o = intval($s -> {oid });
162- print T" {$o ,\" $s ->{prosrc}\" ,$s ->{nargs},$bmap {$s ->{strict}},$bmap {$s ->{retset}},$s ->{prosrc} },\n "
160+ foreach my $s (sort {$a -> {oid }<=> $b -> {oid }}@fmgr ) {
161+ print T" {$s ->{oid},\" $s ->{prosrc}\" ,$s ->{nargs},$bmap {$s ->{strict}},$bmap {$s ->{retset}},$s ->{prosrc} },\n "
163162}
164163
165164
232231 }
233232}
234233
235- sub intval {
236- my $v =shift ;
237- if ($v =~/ ^\d +$ /
238- return $v ;
239- }
240- return 0;
241- }
242-
243234sub AddProject {
244235my ($self ,$name ,$type ,$folder ,$initialdir ) =@_ ;
245236