summaryrefslogtreecommitdiff
path: root/bin/checklinks
diff options
context:
space:
mode:
Diffstat (limited to 'bin/checklinks')
-rwxr-xr-xbin/checklinks8
1 files changed, 4 insertions, 4 deletions
diff --git a/bin/checklinks b/bin/checklinks
index 0a522b1..3150293 100755
--- a/bin/checklinks
+++ b/bin/checklinks
@@ -25,11 +25,11 @@ sub mkdirs {
# the last element is the file
pop(@dirs);
- foreach (@dirs) {
- if (not -d "$path/$_") {
- mkdir("$path/$_") or die("Can't create $path/$_: $!");
+ for my $dir (@dirs) {
+ if (not -d "$path/$dir") {
+ mkdir("$path/$dir") or die("Can't create $path/$dir: $!");
}
- $path .= $_;
+ $path .= "/$dir";
}
return;
}