#!/usr/bin/perl
-my $version = "1.33";
+my $version = "1.34";
use warnings;
use strict;
$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");
#########################################
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