Run recently backported plperlu_plperl regression tests when building with MSVC on...

diff --git a/src/tools/msvc/vcregress.pl b/src/tools/msvc/vcregress.pl
index 80d6089a0a5bf7548d48c8679879756cad0aed1d..ed944575563afae7339b820c557b34aa5d617d5b 100644 (file)
--- a/src/tools/msvc/vcregress.pl
+++ b/src/tools/msvc/vcregress.pl
@@ -1,7 +1,7 @@
 
 # -*-perl-*- hey - emacs - this is a perl file
 
-# $PostgreSQL: pgsql/src/tools/msvc/vcregress.pl,v 1.10.2.1 2010/03/02 18:16:16 adunstan Exp $
+# $PostgreSQL: pgsql/src/tools/msvc/vcregress.pl,v 1.10.2.2 2010/06/02 15:58:26 adunstan Exp $
 
 use strict;
 
@@ -156,14 +156,29 @@ sub plcheck
         my $lang = $pl eq 'tcl' ? 'pltcl' : $pl;
         next unless -d "../../$Config/$lang";
         $lang = 'plpythonu' if $lang eq 'plpython';
+               my @lang_args = ( "--load-language=$lang" );
         chdir $pl;
+        my @tests = fetchTests();
+               if ($lang eq 'plperl')
+               {
+                       # run both trusted and untrusted perl tests
+                       push (@lang_args, "--load-language=plperlu");
+
+                       # assume we're using this perl to built postgres
+                       # test if we can run two interpreters in one backend, and if so
+                       # run the trusted/untrusted interaction tests
+                       use Config;
+                       if ($Config{usemultiplicity} eq 'define')
+                       {
+                               push(@tests,'plperl_plperlu');
+                       }
+               }
                print "============================================================\n";
         print "Checking $lang\n";
-        my @tests = fetchTests();
         my @args = (
             "../../../$Config/pg_regress/pg_regress",
             "--psqldir=../../../$Config/psql",
-            "--dbname=pl_regression","--load-language=$lang",@tests
+            "--dbname=pl_regression",@lang_args,@tests
         );
         system(@args);
         my $status = $? >> 8;