solved build script problem on win32

[comingnext] / build.pl

diff --git a/build.pl b/build.pl
index 072707b97bde27fc75d67f8db1a532e3f4bc99a5..72d495fe383aafca570d14b2dfd51139eca1b26e 100755 (executable)
--- a/build.pl
+++ b/build.pl
@@ -77,6 +77,7 @@ sub copy_files {
 
 sub sed {
        my ($filename, $search, $replace) = @_;
-       system("perl -p -i.bak -e 's/$search/$replace/;' $filename");
+       my $delim = $^O eq "MSWin32" ? "\"" : "'";
+       system("perl -p -i.bak -e ".$delim."s/$search/$replace/;".$delim." $filename");
        unlink <$filename.bak>;
 }
\ No newline at end of file