diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-01-01 15:33:18 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-01-01 15:37:11 +0000 |
| commit | a3c0a861363628704a1e3c926e1641b8d227f3ab (patch) | |
| tree | 5273b5be0721c5dbdc5f5fbc470aa46c7c57bd03 /dist/ExtUtils-CBuilder | |
| parent | edcf105d70e5423fd928c776e086fe31a4a543f4 (diff) | |
| download | perl-a3c0a861363628704a1e3c926e1641b8d227f3ab.tar.gz | |
Ensure ExtUtils::CBuilder's 04-base.t cleans up its temporary directories.
The tempdir() function has the rather confusing default of *not* cleaning up
("because of issues with backwards compatibility") so one needs the CLEANUP
flag. (The analogous newdir() method in the OO interface doesn't suffer this
gotcha.)
Diffstat (limited to 'dist/ExtUtils-CBuilder')
| -rw-r--r-- | dist/ExtUtils-CBuilder/t/04-base.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dist/ExtUtils-CBuilder/t/04-base.t b/dist/ExtUtils-CBuilder/t/04-base.t index 338ed4a59d..702e50e19e 100644 --- a/dist/ExtUtils-CBuilder/t/04-base.t +++ b/dist/ExtUtils-CBuilder/t/04-base.t @@ -85,7 +85,7 @@ SKIP: { $cwd = cwd(); - my $tdir = tempdir(); + my $tdir = tempdir(CLEANUP => 1); chdir $tdir; $base = ExtUtils::CBuilder::Base->new(); ok( $base, "ExtUtils::CBuilder::Base->new() returned true value" ); @@ -297,7 +297,7 @@ is_deeply( \%split_seen, \%exp, { $cwd = cwd(); - my $tdir = tempdir(); + my $tdir = tempdir(CLEANUP => 1); my $subdir = File::Spec->catdir( $tdir, qw| alpha beta gamma delta epsilon zeta eta theta iota kappa lambda | |