]> code.delx.au - comingnext/commitdiff
fixed build.pl to work properly on macos
authorMichael Prager <mail@michaelprager.de>
Sat, 17 Dec 2011 14:06:41 +0000 (15:06 +0100)
committerMichael Prager <mail@michaelprager.de>
Sat, 17 Dec 2011 14:06:41 +0000 (15:06 +0100)
build.pl

index ff42ee7a1e926128733637815a2b7fd15b9d6131..073ecd5cf9669854551245bd963169b25bca160e 100755 (executable)
--- 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);
 }