From bcde90273cd5a70d93c41da85f6e38cfab014272 Mon Sep 17 00:00:00 2001
From: Jacob Pipkin <j@dawnrazor.net>
Date: Fri, 29 Jun 2012 08:49:50 -0500
Subject: fixed bug in sboclean, regex for . and .. in directory listing
 severely b0rked

---
 sboclean | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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] ";
-- 
cgit v1.2.3