From 21cc0ee11981dcdd558daaf05644e1cba1f82feb Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 16 Aug 2003 07:25:08 +0000
Subject: Upgrade to File::Temp 0.13 from CPAN-- but since we had a '0.13'
 already in 5.8.0, make this still a '0.131'.

p4raw-id: //depot/perl@20727
---
 lib/File/Temp.pm           |  4 ++--
 lib/File/Temp/t/mktemp.t   | 11 +++--------
 lib/File/Temp/t/posix.t    | 12 +++---------
 lib/File/Temp/t/security.t |  8 ++------
 lib/File/Temp/t/tempfile.t |  9 ++-------
 5 files changed, 12 insertions(+), 32 deletions(-)

(limited to 'lib/File')

diff --git a/lib/File/Temp.pm b/lib/File/Temp.pm
index dae9c75f4b..bd5b07555d 100644
--- a/lib/File/Temp.pm
+++ b/lib/File/Temp.pm
@@ -1858,9 +1858,9 @@ temporary file handling.
 
 =head1 AUTHOR
 
-Tim Jenness E<lt>t.jenness@jach.hawaii.eduE<gt>
+Tim Jenness E<lt>tjenness@cpan.orgE<gt>
 
-Copyright (C) 1999-2001 Tim Jenness and the UK Particle Physics and
+Copyright (C) 1999-2003 Tim Jenness and the UK Particle Physics and
 Astronomy Research Council. All Rights Reserved.  This program is free
 software; you can redistribute it and/or modify it under the same
 terms as Perl itself.
diff --git a/lib/File/Temp/t/mktemp.t b/lib/File/Temp/t/mktemp.t
index 4e31d01a3f..2014e30717 100755
--- a/lib/File/Temp/t/mktemp.t
+++ b/lib/File/Temp/t/mktemp.t
@@ -1,16 +1,11 @@
-#!/usr/bin/perl -w
+#!/usr/local/bin/perl -w
 
 # Test for mktemp family of commands in File::Temp
 # Use STANDARD safe level for these tests
 
-BEGIN {
-	chdir 't' if -d 't';
-	@INC = '../lib';
-	require Test; import Test;
-	plan(tests => 9);
-}
-
 use strict;
+use Test;
+BEGIN { plan tests => 9 }
 
 use File::Spec;
 use File::Path;
diff --git a/lib/File/Temp/t/posix.t b/lib/File/Temp/t/posix.t
index 0a5e86061b..b63fb29140 100755
--- a/lib/File/Temp/t/posix.t
+++ b/lib/File/Temp/t/posix.t
@@ -1,18 +1,12 @@
-#!/usr/bin/perl -w
+#!/usr/local/bin/perl -w
 # Test for File::Temp - POSIX functions
 
-BEGIN {
-	chdir 't' if -d 't';
-	@INC = '../lib';
-	require Test; import Test;
-	plan(tests => 7);
-}
-
 use strict;
+use Test;
+BEGIN { plan tests => 7}
 
 use File::Temp qw/ :POSIX unlink0 /;
 use FileHandle;
-
 ok(1);
 
 # TMPNAM - scalar
diff --git a/lib/File/Temp/t/security.t b/lib/File/Temp/t/security.t
index 2226f8c70b..736854f054 100755
--- a/lib/File/Temp/t/security.t
+++ b/lib/File/Temp/t/security.t
@@ -5,12 +5,8 @@
 # Test a simple open in the cwd and tmpdir foreach of the
 # security levels
 
-BEGIN {
-	chdir 't' if -d 't';
-	@INC = '../lib';
-	require Test; import Test;
-	plan(tests => 13);
-}
+use Test;
+BEGIN { plan tests => 13 }
 
 use strict;
 use File::Spec;
diff --git a/lib/File/Temp/t/tempfile.t b/lib/File/Temp/t/tempfile.t
index ed59765a75..6e3fa94c5f 100755
--- a/lib/File/Temp/t/tempfile.t
+++ b/lib/File/Temp/t/tempfile.t
@@ -1,14 +1,9 @@
 #!/usr/local/bin/perl -w
 # Test for File::Temp - tempfile function
 
-BEGIN {
-	chdir 't' if -d 't';
-	@INC = '../lib';
-	require Test; import Test;
-	plan(tests => 20);
-}
-
 use strict;
+use Test;
+BEGIN { plan tests => 20}
 use File::Spec;
 
 # Will need to check that all files were unlinked correctly
-- 
cgit v1.2.1