]> code.delx.au - comingnext/blobdiff - build.pl
* updated version info
[comingnext] / build.pl
index 072707b97bde27fc75d67f8db1a532e3f4bc99a5..ff42ee7a1e926128733637815a2b7fd15b9d6131 100755 (executable)
--- a/build.pl
+++ b/build.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-my $version = "1.33";
+my $version = "1.34";
 
 use warnings;
 use strict;
@@ -51,7 +51,7 @@ $zip->addFile("comingNextB.wgz");
 $zip->addFile("comingNextC.wgz");
 $zip->addFile("Readme.txt");
 $zip->addFile("License.txt");
-$zip->addFile("ComingNext_SkinFetcher_v1.4.sisx");
+$zip->addFile("ComingNext_SkinFetcher_v1.5.sisx");
 $zip->writeToFileNamed("comingNext_v$version.zip");
 
 #########################################
@@ -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