sbotools2

commit bcde90273cd5a70d93c41da85f6e38cfab014272
parent ed1be9adade168b666f21bce0669cfe399cbe8db
Author: Jacob Pipkin <j@dawnrazor.net>
Date:   Fri, 29 Jun 2012 08:49:50 -0500

fixed bug in sboclean, regex for . and .. in directory listing severely b0rked

Diffstat:
M
sboclean
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/sboclean b/sboclean
@@ -53,7 +53,7 @@ sub remove_stuff {
 	my $dir = shift;
 	opendir (my $dh, $dir);
 	FIRST: while (my $ls = readdir $dh) {
-		next FIRST if $ls =~ /^\.[\.]{0,1}$/;
+		next FIRST if $ls =~ /^(\.){1,2}$/;
 		my $full = "$dir/$ls";
 		if ($interactive eq 'TRUE') {
 			print "Remove $full? [n] ";