sboclean: Change the meaning of the return value for remove_stuff

2 files changed, 3 insertions, 2 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 {
diff --git a/t/01-test.t b/t/01-test.t
index 84c6edc..fcdfdb3 100755
--- a/t/01-test.t
+++ b/t/01-test.t
@@ -416,7 +416,7 @@ sub {
 
 	my $ret;
 	stdout_is (sub { $ret = remove_stuff('/omg/wtf/bbq') }, "Nothing to do.\n", 'output for remove_stuff good');
-	is($ret, 1, 'remove_stuff good for invalid input');
+	is($ret, 0, 'remove_stuff good for invalid input');
 };
 
 # 48: perform_search tests