And in this instance, Perl did do what I meant, except when kdesvn-build was

running on Thiago's system.  So, change 'unless scalar @dirs' to the
wordier 'if scalar @dirs == 0', and change the while loop into a for loop.

Actually this change restores this part of the code to the way it was before
the apidox patch, where I was experimenting with do { ... } while and gave it
up when Perl told me that it wasn't really a loop, and I didn't undo my changes
*exactly*, which broke kdesvn-build elsewhere (but not here for some reason).

svn path=/trunk/KDE/kdesdk/scripts/kdesvn-build; revision=414019

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