X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fsubroutine-in-inc.t;fp=xt%2Fsubroutine-in-inc.t;h=13b0c47bf0bd1ba9bcf4f869a6bc96c70dceca33;hb=366489a71a6d81aea324fc32b85ff58aad177b80;hp=9186a809417717127c06f02048c138138e3aa42d;hpb=abeb1a03a2179479e2afb2e9010303f1dbc792c9;p=p5sagit%2Flocal-lib.git

diff --git a/xt/subroutine-in-inc.t b/xt/subroutine-in-inc.t
index 9186a80..13b0c47 100644
--- a/xt/subroutine-in-inc.t
+++ b/xt/subroutine-in-inc.t
@@ -7,18 +7,21 @@ plan qw/no_plan/;
 use File::Spec;
 use Cwd;
 use File::Temp qw/ tempdir /;
-my $dir = tempdir( DIR => Cwd::abs_path('t'), CLEANUP => 1 );
 my $base;
 
 sub CODE_in_INC() {
     return scalar grep { ref eq 'CODE' } @INC;
 }
 
+my $dir;
+
 BEGIN {
     $base = CODE_in_INC;
     unshift @INC, sub { };
     splice @INC, 3, 1, sub { };
     push @INC, sub { };
+
+    $dir = tempdir( DIR => Cwd::abs_path('t'), CLEANUP => 1 );
 }
 
 use local::lib( $dir );