X-Git-Url: https://code.delx.au/comingnext/blobdiff_plain/a3f3c781dfad66f933e34cb5ad0319e6c33582fb..4decefe37e2d0667289ad5b92557771c50892cf2:/build.pl

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