bug fixes to initial commit

1 files changed, 3 insertions, 2 deletions

diff --git a/sboclean b/sboclean
index 3a43ade..c9ee8c0 100755
--- a/sboclean
+++ b/sboclean
@@ -78,12 +78,13 @@ sub remove_stuff($) {
 }
 
 sub clean_c32() {
-	opendir(my $dh, '/tmp/');
+	my $dir = '/tmp';
+	opendir(my $dh, $dir);
 	FIRST: while (my $ls = readdir $dh) {
 		next FIRST unless $ls =~ /^package-.+-compat32$/;
 		rm_full "$dir/$ls";
 	}
-{
+}
 
 remove_stuff $config{SBO_HOME} .'/distfiles' if $clean_dist;