solved build script problem on win32
authorMichael Prager <michael@pragers.de>
Sun, 28 Aug 2011 12:45:08 +0000 (14:45 +0200)
committerMichael Prager <michael@pragers.de>
Sun, 28 Aug 2011 12:45:08 +0000 (14:45 +0200)
build.pl

index 072707b..72d495f 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