aboutsummaryrefslogtreecommitdiff
path: root/sboclean
diff options
context:
space:
mode:
Diffstat (limited to 'sboclean')
-rwxr-xr-xsboclean2
1 files changed, 1 insertions, 1 deletions
diff --git a/sboclean b/sboclean
index 3154bd1..fd6f5c8 100755
--- a/sboclean
+++ b/sboclean
@@ -49,7 +49,7 @@ unless ($clean_dist || $clean_work) {
sub remove_stuff ($) {
exists $_[0] or script_error 'remove_stuff requires an argument';
- say "Nothing to do." and return 1 unless -d $_[0];
+ -d $[0] or say "Nothing to do." and return 1;
my $dir = shift;
opendir (my $dh, $dir);
FIRST: while (my $ls = readdir $dh) {