sub new {
my ($cls, $dir, $base, $opt) = @_;
my $self = bless { opt => $opt }, $cls;
- unless (defined $dir) {
- $self->{tmpdir} = $dir = tempdir('skv-XXXXXX', TMPDIR => 1);
- $self->{tmpid} = "$$.$self";
- }
+ $dir //= $self->{"tmp$$.$self"} = tempdir("skv.$$-XXXX", TMPDIR => 1);
-d $dir or mkdir($dir) or die "mkdir($dir): $!";
$base //= '';
my $f = $self->{filename} = "$dir/$base.sqlite3";
sub DESTROY {
my ($self) = @_;
- rmtree($self->{tmpdir}) if ($self->{tmpid} // '') eq "$$.$self";
+ my $dir = delete $self->{"tmp$$.$self"} or return;
+ rmtree($dir);
}
1;
my ($tmpdir, $for_destroy) = tmpdir();
local $ENV{TMPDIR} = $tmpdir;
my $skv = PublicInbox::SharedKV->new;
-my $skv_tmpdir = $skv->{tmpdir};
+my $skv_tmpdir = $skv->{"tmp$$.$skv"};
ok(-d $skv_tmpdir, 'created a temporary dir');
$skv->dbh;
my $dead = "\xde\xad";