1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
use strict; use warnings;
package TestInlineSetup;
our $DIAG = eval {
require diagnostics;
diagnostics->import();
1;
};
use File::Path;
use File::Spec;
sub import {
my ($package, $option) = @_;
$option ||= '';
}
our $DIR;
BEGIN {
($_, $DIR) = caller(2);
$DIR =~ s/.*?(\w+)\.t$/$1/ or die;
$DIR = "_Inline_$DIR.$$";
rmtree($DIR) if -d $DIR;
mkdir($DIR) or die "$DIR: $!\n";
}
my $absdir = File::Spec->rel2abs($DIR);
($absdir) = $absdir =~ /(.*)/; # untaint
my $startpid = $$;
END {
if($$ == $startpid) { # only when original process exits
rmtree($absdir);
}
}
1;
|
