X-Git-Url: https://code.delx.au/comingnext/blobdiff_plain/a42c70b96094b12a5f4737f256406746f125afcb..64dc5e2d3ff061ffbc18593f2e14082acacd8474:/build.pl

diff --git a/build.pl b/build.pl
index ff42ee7..073ecd5 100755
--- a/build.pl
+++ b/build.pl
@@ -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);
 }