Index: src/tools/msvc/Solution.pm
===================================================================
RCS file: /projects/cvsroot/pgsql/src/tools/msvc/Solution.pm,v
retrieving revision 1.3
diff -c -r1.3 Solution.pm
*** src/tools/msvc/Solution.pm	20 Nov 2006 19:18:02 -0000	1.3
--- src/tools/msvc/Solution.pm	23 Nov 2006 15:05:20 -0000
***************
*** 55,60 ****
--- 55,61 ----
  				confess "Bad format of version: $self->{strver}\n"
  			}
  			$self->{numver} = sprintf("%d%02d%02d", $1, $2, $3?$3:0);
+ 			$self->{majorver} = sprintf("%d.%d", $1, $2);
  		}
  	}
  	close(C);
***************
*** 206,211 ****
--- 207,225 ----
  EOF
  		close(O);
  	}
+
+ 	my $mf = Project::read_file('src\backend\catalog\Makefile');
+ 	$mf =~ s{\\s*[\r\n]+}{}mg;
+ 	$mf =~ /^POSTGRES_BKI_SRCS\s*:=[^,]+,(.*)\)$/gm || croak "Could not find POSTGRES_BKI_SRCS in Makefile\n";
+ 	my @allbki = split /\s+/, $1;
+     foreach my $bki (@allbki) {
+ 		next if $bki eq "";
+ 		if (IsNewer('src/backend/catalog/postgres.bki', "src/include/catalog/$bki")) {
+  		   print "Generating postgres.bki...\n";
+  		   system("perl src/tools/msvc/genbki.pl $self->{majorver} src/backend/catalog/postgres " . join(' src/include/catalog/',@allbki));
+  		   last;
+         }
+   	}
  }

  sub AddProject {