Next |
Program
Repair Shop |
79 |
if (-e $dst) {
die "Can't continue because a file has target's dir name\n"
unless -d _;
} else {
mkdir $dst or die "Couldn't create dir : $target_node\n";
}
if (-e $dst) {
-d _ or die "Can't continue because a file has target's dir name\n"
} else {
mkdir $dst or die "Couldn't create dir : $target_node\n";
}
if (! -e $dst) {
mkdir $dst or die "Couldn't create dir : $target_node\n";
} elsif (! -d _) {
die "Can't continue because a file has target's dir name\n"
}
Next |
|
Copyright © 2002 M. J. Dominus |