X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2Flocal-lib.git;a=blobdiff_plain;f=t%2Fstackable.t;h=c3b25b1c2830df8fb23192946e9d00de02161d29;hp=514dba0c3605368aea61ffda7a0e6ff5f895a756;hb=663a867559c7781df1c6810ec07aa4a3bd3c58ce;hpb=6ba49accd2619a5c11944ac946ae5fc58bced0c1

diff --git a/t/stackable.t b/t/stackable.t
index 514dba0..c3b25b1 100644
--- a/t/stackable.t
+++ b/t/stackable.t
@@ -1,29 +1,14 @@
 use strict;
 use warnings;
 use Test::More;
-use File::Temp qw(tempdir);
 use File::Spec;
-use Cwd;
 use Config;
 
 plan tests => 24;
 
 use local::lib ();
 
-sub mk_temp_dir
-{
-    my $name_template = shift;
-
-    my $path = tempdir($name_template, DIR => Cwd::abs_path('t'), CLEANUP => 1);
-    local::lib->ensure_dir_structure_for($path);
-    # On Win32 the path where the distribution is built usually contains
-    # spaces. This is a problem for some parts of the CPAN toolchain, so
-    # local::lib uses the GetShortPathName trick do get an alternate
-    # representation of the path that doesn't constain spaces.
-    return ($^O eq 'MSWin32')
-         ? Win32::GetShortPathName($path)
-	 : $path
-}
+use lib 't/lib'; use TempDir;
 
 my $dir1 = mk_temp_dir('test_local_lib-XXXXX');
 my $dir2 = mk_temp_dir('test_local_lib-XXXXX');