#!/usr/bin/perl
-my $version = "1.33";
+my $version = "1.37";
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.6.sisx");
$zip->writeToFileNamed("comingNext_v$version.zip");
#########################################
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);
}