aboutsummaryrefslogtreecommitdiff
path: root/sboclean
diff options
context:
space:
mode:
Diffstat (limited to 'sboclean')
-rwxr-xr-xsboclean4
1 files changed, 2 insertions, 2 deletions
diff --git a/sboclean b/sboclean
index 0b503bc..120ec3a 100755
--- a/sboclean
+++ b/sboclean
@@ -46,7 +46,7 @@ if ($clean_dist eq 'FALSE' && $clean_work eq 'FALSE') {
}
sub remove_stuff {
- script_error ('remove_stuff requires an argument') unless exists $_[0];
+ exists $_[0] or script_error ('remove_stuff requires an argument');
print "Nothing to do.\n" and return 1 unless -d $_[0];
my $dir = shift;
opendir (my $dh, $dir);
@@ -58,7 +58,7 @@ sub remove_stuff {
next FIRST unless <STDIN> =~ /^[Yy]/;
}
unlink $full if -f $full;
- remove_tree $full if -d $full;
+ remove_tree ($full) if -d $full;
}
}