| # | Line 36 | Line 36 | sub copydir | |
|---|---|---|
| 36 | use DirHandle; | |
| 37 | use File::Copy; | |
| 38 | ||
| 39 | – | # print "Copying $src to $dest\n"; |
| 39 | adddir($dest); | |
| 40 | my $dh=DirHandle->new($src); | |
| 41 | ||
| # | Line 55 | Line 54 | sub copydir | |
| 54 | else | |
| 55 | { | |
| 56 | copy($src."/".$file,$dest."/".$file); | |
| 57 | + | if ( -x $src."/".$file || -X $src."/".$file ) {chmod(0775,$dest."/".$file);} |
| 58 | } | |
| 59 | } | |
| 60 | undef $dh; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |