@@ -3,7 +3,7 @@ package Mkvcbuild;
33#
44# Package that generates build files for msvc build
55#
6- # $PostgreSQL: pgsql/src/tools/msvc/Mkvcbuild.pm,v 1.45 2010/01/09 14:45:47 adunstan Exp $
6+ # $PostgreSQL: pgsql/src/tools/msvc/Mkvcbuild.pm,v 1.46 2010/01/11 14:16:18 adunstan Exp $
77#
88use Carp;
99use Win32;
@@ -117,18 +117,13 @@ sub mkvcbuild
117117 .' text2macro.pl'
118118 .' --strip="^(\#.*|\s*)$$"'
119119 .' plc_perlboot.pl plc_safe_bad.pl plc_safe_ok.pl'
120- .' >perlchunks.htmp ' );
120+ .' >perlchunks.h ' );
121121chdir $basedir ;
122- if ((!(-f ' src\pl\plperl\perlchunks.htmp ' )) ||-z ' src\pl\plperl\perlchunks.htmp ' )
122+ if ((!(-f ' src\pl\plperl\perlchunks.h ' )) ||-z ' src\pl\plperl\perlchunks.h ' )
123123 {
124- unlink (' src\pl\plperl\perlchunks.htmp ' );# if zero size
124+ unlink (' src\pl\plperl\perlchunks.h ' );# if zero size
125125die ' Failed to create perlchunks.h' ." \n " ;
126126 }
127- else
128- {
129- move(' src\pl\plperl\perlchunks.htmp' ,' src\pl\plperl\perlchunks.h' );
130- }
131-
132127 }
133128$plperl -> AddReference($postgres );
134129my @perl_libs =grep {/ perl\d +.lib$ / }