remove dependency of File::Temp

zentooo · Oct 22, 2009 · da743bd · da743bd
1 parent f924152
commit da743bd
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 5 deletions.
diff --git a/Makefile.PL b/Makefile.PL
@@ -18,7 +18,6 @@ requires
     'File::Find::Rule'      => 0.30,
     'File::Path'            => 2.07,
     'File::Spec'            => 0,
-    'File::Temp'            => 0,
     'Getopt::Long'          => 0,
     'LWP::UserAgent'        => 0,
     'LWP::Simple'           => 0,

diff --git a/lib/Vimana.pm b/lib/Vimana.pm
@@ -72,6 +72,10 @@ sub index {
     return $INDEX;
 }
 
+sub tmpdir {
+    return  "/tmp/vimana-" . join '',map { [ 'a' .. 'z' ]->[ int rand(26) ] }  1 .. 6;
+}
+
 
 =head1 AUTHOR
 

diff --git a/lib/Vimana/AutoInstall.pm b/lib/Vimana/AutoInstall.pm
@@ -9,7 +9,6 @@ use File::Path qw'mkpath rmtree';
 use Archive::Any;
 use File::Find::Rule;
 use File::Type;
-use File::Temp qw(tempdir);
 use Vimana::Logger;
 use Vimana::Util;
 use DateTime;
@@ -94,6 +93,7 @@ sub install_to {
     $ret;
 }
 
+
 =head2 install_from_archive 
 
 =cut
@@ -111,7 +111,7 @@ sub install_from_archive {
         }
     }
 
-    my $out = tempdir( CLEANUP => 1 );
+    my $out = Vimana::tmpdir();
     rmtree [ $out ] if -e $out;
     mkpath [ $out ];
     $logger->info("Temporary directory created: $out") if $options->{verbose};

diff --git a/lib/Vimana/Command/Install.pm b/lib/Vimana/Command/Install.pm
@@ -4,7 +4,6 @@ package Vimana::Command::Install;
 use base qw(App::CLI::Command);
 use URI;
 use LWP::Simple qw();
-use File::Temp qw(tempdir);
 
 require Vimana::VimOnline;
 require Vimana::VimOnline::ScriptPage;
@@ -37,7 +36,7 @@ sub run {
 
     my $page = Vimana::VimOnline::ScriptPage->fetch( $info->{script_id} );
 
-    my $dir = '/tmp' || tempdir( DIR => '/tmp' );
+    my $dir = '/tmp' || Vimana::tmpdir();
 
     my $url = $page->{download};
     my $filename = $page->{filename};