1 files changed, 7 insertions, 2 deletions
diff --git a/src/tools/msvc/Solution.pm b/src/tools/msvc/Solution.pm
index 37c098b4fb..f6699c857f 100644
--- a/src/tools/msvc/Solution.pm
+++ b/src/tools/msvc/Solution.pm
@@ -3,6 +3,8 @@ use Carp;
 use strict;
 use warnings;
 
+use Genbki;
+
 sub new
 {
     my $junk = shift;
@@ -266,8 +268,11 @@ EOF
         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));
+            Genbki::genbki(
+                $self->{majorver},
+                "src/backend/catalog/postgres",
+                split(/ /,join(' src/include/catalog/',@allbki))
+            );
             last;
         }
     }