X-Git-Url: https://code.delx.au/comingnext/blobdiff_plain/7aa60904233a7ec9646294c53b6a527ec95a97cd..ddb6667f692181fef2071173b81f28d73d1aee17:/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);
 }