Upgrade to File::Temp 0.13 from CPAN--
Jarkko Hietaniemi [Sat, 16 Aug 2003 07:25:08 +0000 (07:25 +0000)]
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
lib/File/Temp/t/mktemp.t
lib/File/Temp/t/posix.t
lib/File/Temp/t/security.t
lib/File/Temp/t/tempfile.t

index dae9c75..bd5b075 100644 (file)
@@ -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.
index 4e31d01..2014e30 100755 (executable)
@@ -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;
index 0a5e860..b63fb29 100755 (executable)
@@ -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
index 2226f8c..736854f 100755 (executable)
@@ -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;
index ed59765..6e3fa94 100755 (executable)
@@ -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