aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xsboclean4
1 files changed, 2 insertions, 2 deletions
diff --git a/sboclean b/sboclean
index 52708ed..61c47fc 100755
--- a/sboclean
+++ b/sboclean
@@ -78,7 +78,7 @@ sub remove_stuff($) {
}
sub clean_c32() {
- my $dir = $tmpd;
+ my $dir = $SBO::Lib::tmpd;
opendir(my $dh, $dir);
FIRST: while (my $ls = readdir $dh) {
next FIRST unless $ls =~ /^package-.+-compat32$/;
@@ -89,7 +89,7 @@ sub clean_c32() {
remove_stuff $config{SBO_HOME} .'/distfiles' if $clean_dist;
if ($clean_work) {
- my $tsbo = $env_tmp ? $env_tmp : "$tmpd/SBo";
+ my $tsbo = $SBO::Lib::env_tmp ? $SBO::Lib::env_tmp : "$SBO::Lib::tmpd/SBo";
if ($tsbo =~ qr#^/tmp(|/)$# && !$interactive) {
warn "This will remove the entire contents of /tmp\n";
print "Proceed? [y] ";