From d55dbdf17977ed9b1dfd91c98a4a569960b851cd Mon Sep 17 00:00:00 2001 From: Jacob Pipkin Date: Fri, 31 Aug 2012 15:53:21 -0500 Subject: epic changes and fixes and much further testing --- sboclean | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'sboclean') diff --git a/sboclean b/sboclean index fd6f5c8..558272b 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'; - -d $[0] or say "Nothing to do." and return 1; + -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