X-Git-Url: https://code.delx.au/comingnext/blobdiff_plain/d5043351d4fc64c9030b1e72fa36961d021b30de..a31510261224b6257b8776ef564a6baf95c0adb7:/build.pl

diff --git a/build.pl b/build.pl
index 072707b..cb54aa5 100755
--- a/build.pl
+++ b/build.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-my $version = "1.33";
+my $version = "1.37";
 
 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.6.sisx");
 $zip->writeToFileNamed("comingNext_v$version.zip");
 
 #########################################
@@ -67,9 +67,11 @@ sub copyrecursive {
 sub copy_files {
 	my $targetdir = $File::Find::dir;
 	$targetdir =~ s/^$copy_source/$copy_target/o;
-	mkpath( $targetdir ) if not -e $targetdir;
+	mkpath( $targetdir, 1 ) if not -d $targetdir;
+	return if -d $File::Find::name;
 	my $targetfile = $File::Find::name;
 	$targetfile =~ s/^$copy_source/$copy_target/o;
+	print "copy $targetfile\n";
 	copy($File::Find::name, $targetfile);
 }
 
@@ -77,6 +79,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