diff --git a/kdesvn-build b/kdesvn-build
index ffc16ff..c900bca 100755
--- a/kdesvn-build
+++ b/kdesvn-build
@@ -654,8 +654,8 @@ sub safe_make (@)
         print "\t$description...\n";
     }
 
-    push (@dirs, "") unless scalar @dirs;
-    while (my $subdir = shift @dirs)
+    push (@dirs, "") if scalar @dirs == 0;
+    for my $subdir (@dirs)
     {
         # Some subdirectories shouldn't have make run within them.
         next unless is_subdir_buildable($module, $subdir);