From a956b160261579ae2422b539ccf73d75684351fb Mon Sep 17 00:00:00 2001
From: Andrew Dunstan <andrew@dunslane.net>
Date: Sat, 5 Mar 2011 16:21:37 -0500
Subject: [PATCH] Add PL extension files to MSVC Install procedure.
---
src/tools/msvc/Install.pm | 19 +++++++++++++++++++
1 file changed, 19 insertions(+)
diff --git a/src/tools/msvc/Install.pm b/src/tools/msvc/Install.pm
index bb291b636d7..e1747c4fda0 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";