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

1 files changed, 1 insertions, 1 deletions

diff --git a/sboclean b/sboclean
index 0c0e30a..3e4da48 100755
--- 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] ";