Add PL extension files to MSVC Install procedure.

diff --git a/src/tools/msvc/Install.pm b/src/tools/msvc/Install.pm
index bb291b636d7145761339491fb2f15b3134d390ad..e1747c4fda00a6d9b5efd4e4d9670276b7c6d91a 100644 (file)
--- a/src/tools/msvc/Install.pm
+++ b/src/tools/msvc/Install.pm
@@ -113,6 +113,25 @@ sub Install
     CopyContribFiles($config,$target);
     CopyIncludeFiles($target);
 
+       my $pl_extension_files = [];
+       my @pldirs = ('src/pl/plpgsql/src');
+       push @pldirs,"src/pl/plperl" if $config->{perl};
+       push @pldirs,"src/pl/plpython" if $config->{python};
+       push @pldirs,"src/pl/tcl" if $config->{tcl};
+    File::Find::find(
+        {
+            wanted =>sub {
+                /^(.*--.*\.sql|.*\.control)\z/s
+                  &&push(@$pl_extension_files, $File::Find::name);
+              }
+        },
+        @pldirs
+    );
+    CopySetOfFiles(
+        'PL Extension files', $pl_extension_files,
+        $target . '/share/extension/'
+    );
+
     GenerateNLSFiles($target,$config->{nls},$majorver) if ($config->{nls});
 
     print "Installation complete.\n";