mirrors/postgres
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove use of temp file for perlchunks.h, as in recent change to plperl GNUmakefile

Browse Source
This commit is contained in:
Andrew Dunstan 2010-01-11 14:16:18 +00:00
parent 6164b4bc19
commit ccaad19112
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/tools/msvc/Mkvcbuild.pm
View File

@ -3,7 +3,7 @@ package Mkvcbuild;
# #
# Package that generates build files for msvc build # 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 Carp;
use Win32; use Win32;
@ -117,18 +117,13 @@ sub mkvcbuild
. 'text2macro.pl ' . 'text2macro.pl '
. '--strip="^(\#.*|\s*)$$" ' . '--strip="^(\#.*|\s*)$$" '
. 'plc_perlboot.pl plc_safe_bad.pl plc_safe_ok.pl ' . 'plc_perlboot.pl plc_safe_bad.pl plc_safe_ok.pl '
. '>perlchunks.htmp'); . '>perlchunks.h');
chdir $basedir; 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"; die 'Failed to create perlchunks.h' . "\n";
} }
else
{
move('src\pl\plperl\perlchunks.htmp','src\pl\plperl\perlchunks.h');
}
} }
$plperl->AddReference($postgres); $plperl->AddReference($postgres);
my @perl_libs = grep {/perl\d+.lib$/ } my @perl_libs = grep {/perl\d+.lib$/ }