File::Temp not File:Tempdir

[scpubgit/App-SCS.git] / t / 04cache.t

diff --git a/t/04cache.t b/t/04cache.t
index 4475a84..e91db16 100644 (file)
--- a/t/04cache.t
+++ b/t/04cache.t
@@ -4,10 +4,10 @@ use Test::More;
 use App::SCS;
 use IO::All;
 
-use File::Tempdir;
+use File::Temp qw/tempdir/;
 
-my $tmpdir = File::Tempdir->new();
-my $dir = io($tmpdir->name);
+my $tmpdir = tempdir;
+my $dir = io($tmpdir);
 
 $dir->catdir('share/pages/cachetest')->mkpath;
 $dir->catdir('share/templates')->mkpath;