aboutsummaryrefslogtreecommitdiff
path: root/sboclean
diff options
context:
space:
mode:
authorAndreas Guldstrand <andreas.guldstrand@gmail.com>2016-03-03 14:11:31 +0100
committerAndreas Guldstrand <andreas.guldstrand@gmail.com>2016-03-03 14:11:31 +0100
commit5ecef1547e12d76c5a7157f65a90937511600b1b (patch)
tree6860a9e22a51fca8404e2798c5d04353f85e8d41 /sboclean
parent72dbda078045a406732afe9c7fe15e105b50540c (diff)
downloadsbotools2-5ecef1547e12d76c5a7157f65a90937511600b1b.tar.xz
sboclean: Change the meaning of the return value for remove_stuff
Diffstat (limited to 'sboclean')
-rwxr-xr-xsboclean3
1 files changed, 2 insertions, 1 deletions
diff --git a/sboclean b/sboclean
index aec026c..ffd97a8 100755
--- a/sboclean
+++ b/sboclean
@@ -69,13 +69,14 @@ sub rm_full {
sub remove_stuff {
exists $_[0] or script_error 'remove_stuff requires an argument.';
- -d $_[0] or say 'Nothing to do.' and return 1;
+ -d $_[0] or say 'Nothing to do.' and return 0;
my $dir = shift;
opendir(my $dh, $dir);
FIRST: while (my $ls = readdir $dh) {
next FIRST if in($ls => qw/ . .. /);
rm_full("$dir/$ls");
}
+ return 1
}
sub clean_c32 {