lp1979357 use temp file library

for 34-lp1787968-cover-uploader.t

diff --git a/Open-ILS/src/perlmods/live_t/34-lp1787968-cover-uploader.t b/Open-ILS/src/perlmods/live_t/34-lp1787968-cover-uploader.t
index 7e445fc..65f39ab 100644 (file)
--- a/Open-ILS/src/perlmods/live_t/34-lp1787968-cover-uploader.t
+++ b/Open-ILS/src/perlmods/live_t/34-lp1787968-cover-uploader.t
@@ -7,11 +7,13 @@ use OpenILS::Utils::CStoreEditor qw/:funcs/;
 use OpenILS::Utils::Fieldmapper;
 use LWP::UserAgent;
 use File::Fetch;
+use File::Temp qw/tempdir/;
 use HTTP::Request::Common qw(POST);
 use FindBin;
 
 diag("test image uploader");
 
+my $tempdir = tempdir( CLEANUP => 1 );
 my $U = 'OpenILS::Application::AppUtils';
 my $script = OpenILS::Utils::TestUtils->new();
 $script->bootstrap;
@@ -65,7 +67,7 @@ ok( $response->content() eq '1', 'Received expected response for an image upload
 
 my $url = 'http://localhost/opac/extras/ac/jacket/small/r/1';
 my $ff = File::Fetch->new(uri => $url);
-my $file = $ff->fetch( to => '/tmp' ) or die $ff->error;
+my $file = $ff->fetch( to => $tempdir ) or die $ff->error;
 diag("Downloaded $url as $file");
 
 my $filetype = `file $file`;