From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 16 Aug 2003 07:25:08 +0000 (+0000)
Subject: Upgrade to File::Temp 0.13 from CPAN--
X-Git-Tag: accepted/trunk/20130322.191538~23344
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=21cc0ee11981dcdd558daaf05644e1cba1f82feb;p=platform%2Fupstream%2Fperl.git

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
---

diff --git a/lib/File/Temp.pm b/lib/File/Temp.pm
index dae9c75..bd5b075 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 4e31d01..2014e30 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 0a5e860..b63fb29 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 2226f8c..736854f 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 ed59765..6e3fa94 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