From ccaad191126f96eb9a0417e811e7bc83ad8d7a94 Mon Sep 17 00:00:00 2001
From: Andrew Dunstan <andrew@dunslane.net>
Date: Mon, 11 Jan 2010 14:16:18 +0000
Subject: [PATCH] remove use of temp file for perlchunks.h, as in recent change
 to plperl GNUmakefile

---
 src/tools/msvc/Mkvcbuild.pm | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

diff --git a/src/tools/msvc/Mkvcbuild.pm b/src/tools/msvc/Mkvcbuild.pm
index 9ae689ec79a..3b87179a5d5 100644
--- a/src/tools/msvc/Mkvcbuild.pm
+++ b/src/tools/msvc/Mkvcbuild.pm
@@ -3,7 +3,7 @@ package Mkvcbuild;
 #
 # Package that generates build files for msvc build
 #
-# $PostgreSQL: pgsql/src/tools/msvc/Mkvcbuild.pm,v 1.45 2010/01/09 14:45:47 adunstan Exp $
+# $PostgreSQL: pgsql/src/tools/msvc/Mkvcbuild.pm,v 1.46 2010/01/11 14:16:18 adunstan Exp $
 #
 use Carp;
 use Win32;
@@ -117,18 +117,13 @@ sub mkvcbuild
                   . 'text2macro.pl '
                   . '--strip="^(\#.*|\s*)$$" '
                   . 'plc_perlboot.pl plc_safe_bad.pl plc_safe_ok.pl '
-                  .	'>perlchunks.htmp');
+                  .	'>perlchunks.h');
             chdir $basedir;
-            if ((!(-f 'src\pl\plperl\perlchunks.htmp')) || -z 'src\pl\plperl\perlchunks.htmp')
+            if ((!(-f 'src\pl\plperl\perlchunks.h')) || -z 'src\pl\plperl\perlchunks.h')
             {
-                unlink('src\pl\plperl\perlchunks.htmp'); # if zero size
+                unlink('src\pl\plperl\perlchunks.h'); # if zero size
                 die 'Failed to create perlchunks.h' . "\n";
             }
-            else
-            {
-                move('src\pl\plperl\perlchunks.htmp','src\pl\plperl\perlchunks.h');
-            }
-
         }
         $plperl->AddReference($postgres);
 		my @perl_libs = grep {/perl\d+.lib$/ }
-- 
GitLab