diff options
| -rwxr-xr-x | sboclean | 4 | 
1 files changed, 2 insertions, 2 deletions
| @@ -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] "; | 
