From 5ca399e0e9ab12063f15c4ab14443ba762877634 Mon Sep 17 00:00:00 2001 From: Jacob Pipkin Date: Thu, 30 Aug 2012 14:03:49 -0500 Subject: bugfixes++ --- sboclean | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'sboclean') 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) { -- cgit v1.2.3