*** pgsql/src/tools/msvc/Mkvcbuild.pm	2009/06/05 18:29:56	1.40
--- pgsql/src/tools/msvc/Mkvcbuild.pm	2010/05/13 21:33:55	1.40.2.1
*************** package Mkvcbuild;
*** 3,9 ****
  #
  # Package that generates build files for msvc build
  #
! # $PostgreSQL: pgsql/src/tools/msvc/Mkvcbuild.pm,v 1.39 2009/04/07 19:35:57 mha Exp $
  #
  use Carp;
  use Win32;
--- 3,9 ----
  #
  # Package that generates build files for msvc build
  #
! # $PostgreSQL: pgsql/src/tools/msvc/Mkvcbuild.pm,v 1.40 2009/06/05 18:29:56 adunstan Exp $
  #
  use Carp;
  use Win32;
*************** use strict;
*** 11,16 ****
--- 11,17 ----
  use warnings;
  use Project;
  use Solution;
+ use Cwd;
  
  use Exporter;
  our (@ISA, @EXPORT_OK);
*************** sub mkvcbuild
*** 103,108 ****
--- 104,125 ----
                  die 'Failed to create SPI.c' . "\n";
              }
          }
+         if (  Solution::IsNewer('src\pl\plperl\plperl_opmask.h','src\pl\plperl\plperl_opmask.pl'))
+         {
+             print 'Building src\pl\plperl\plperl_opmask.h ...' . "\n";
+             my $basedir = getcwd;
+             chdir 'src\pl\plperl';
+             system( $solution->{options}->{perl}
+                   . '/bin/perl '
+                   . 'plperl_opmask.pl '
+                   .	'plperl_opmask.h');
+             chdir $basedir;
+             if ((!(-f 'src\pl\plperl\plperl_opmask.h')) || -z 'src\pl\plperl\plperl_opmask.h')
+             {
+                 unlink('src\pl\plperl\plperl_opmask.h'); # if zero size
+                 die 'Failed to create plperl_opmask.h' . "\n";
+             }
+         }
          $plperl->AddReference($postgres);
  		my @perl_libs = grep {/perl\d+.lib$/ }
  			glob($solution->{options}->{perl} . '\lib\CORE\perl*.lib');