temp directories may be deleted by child processes

[skaji]

Currently directories created by File::pushd::tempd may be deleted by child processes.

# test.pl
use strict;
use warnings;
use File::pushd;
use Cwd 'getcwd';

my $tempd = tempd;

my $pid = fork // die;

if ($pid == 0) {
    exit;
}
wait;

my $cwd = getcwd or die "getcwd: $!";

❯ perl test.pl
getcwd: No such file or directory at test.pl line 16.

I think it would be nice

• a) to delete directories only if $$ = pid who created the directories, or
• b) to document this behavior in pod clearly.

[xdg]

Good catch. Do you want to write a patch and test to cache and check $$ in DESTROY?

[skaji]

@xdg Thanks!

[xdg]

Thank you! I've released it as a -TRIAL and have a note in my calendar for next week to release stable if it's smoking well.