From e86433279141617306c136e2cac4ca42d5821d55 Mon Sep 17 00:00:00 2001 From: J Pipkin Date: Sun, 13 Jan 2013 08:11:20 -0600 Subject: bug fixes to initial commit --- sboclean | 5 +++-- 1 file 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; -- cgit v1.2.3