checklinks: Make directory autocreation actually work

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;
 }