From: Andrew Dunstan <andrew@dunslane.net>
Date: Sat, 5 Mar 2011 21:21:37 +0000 (-0500)
Subject: Add PL extension files to MSVC Install procedure.
X-Git-Tag: REL9_1_ALPHA4~45
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=a956b160261579ae2422b539ccf73d75684351fb;p=postgresql

Add PL extension files to MSVC Install procedure.
---

diff --git a/src/tools/msvc/Install.pm b/src/tools/msvc/Install.pm
index bb291b636d..e1747c4fda 100644
--- 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";