From: Michael Prager <michael@pragers.de>
Date: Sun, 28 Aug 2011 12:45:08 +0000 (+0200)
Subject: solved build script problem on win32
X-Git-Url: https://code.delx.au/comingnext/commitdiff_plain/4decefe37e2d0667289ad5b92557771c50892cf2

solved build script problem on win32
---

diff --git a/build.pl b/build.pl
index 072707b..72d495f 100755
--- 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