diff options
| -rwxr-xr-x | bin/checklinks | 8 |
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; } |