r38938 - in /branches/upstream/libfile-temp-perl/current: META.yml README Temp.pm t/fork.t

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Mon Jun 29 18:04:29 2009
New Revision: 38938

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=38938
Log:
[svn-upgrade] Integrating new upstream version, libfile-temp-perl (0.22)

Modified:
    branches/upstream/libfile-temp-perl/current/META.yml
    branches/upstream/libfile-temp-perl/current/README
    branches/upstream/libfile-temp-perl/current/Temp.pm
    branches/upstream/libfile-temp-perl/current/t/fork.t

Modified: branches/upstream/libfile-temp-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfile-temp-perl/current/META.yml?rev=38938&op=diff
==============================================================================
--- branches/upstream/libfile-temp-perl/current/META.yml (original)
+++ branches/upstream/libfile-temp-perl/current/META.yml Mon Jun 29 18:04:29 2009
@@ -1,23 +1,14 @@
---- #YAML:1.0
-name:               File-Temp
-version:            0.21
-abstract:           return name and handle of a temporary file safely
-author:
-    - Tim Jenness <tjenness at cpan.org>
-license:            perl
-distribution_type:  module
-configure_requires:
-    ExtUtils::MakeMaker:  0
+# http://module-build.sourceforge.net/META-spec.html
+#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
+name:         File-Temp
+version:      0.22
+version_from: Temp.pm
+installdirs:  perl
 requires:
-    Fcntl:       1.03
-    File::Path:  0
-    File::Spec:  0.8
-    Test::More:  0
-no_index:
-    directory:
-        - t
-        - inc
-generated_by:       ExtUtils::MakeMaker version 6.48
-meta-spec:
-    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
-    version:  1.4
+    Fcntl:                         1.03
+    File::Path:                    0
+    File::Spec:                    0.8
+    Test::More:                    0
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.30

Modified: branches/upstream/libfile-temp-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfile-temp-perl/current/README?rev=38938&op=diff
==============================================================================
--- branches/upstream/libfile-temp-perl/current/README (original)
+++ branches/upstream/libfile-temp-perl/current/README Mon Jun 29 18:04:29 2009
@@ -1,6 +1,6 @@
 File::Temp - provides functions for generating temporary files
 
-This is release V0.21 of File::Temp. This module can be used to
+This is release V0.22 of File::Temp. This module can be used to
 generate temporary files (providing a filename and filehandle) or directories.
 Possible race conditions are avoided and some security checks are performed
 (eg making sure the sticky bit is set on world writeable temp directories).
@@ -123,12 +123,15 @@
 
 Tim Jenness <tjenness at cpan.org>
 
-Copyright (C) 1999 - 2008 Tim Jenness and the UK Particle Physics and
+Copyright (C) 1999 - 2009 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.
 
 CHANGES IN THIS RELEASE
+
+V0.22
+      + Portability fixes in t/fork.t provided by perl5-porters.
 
 V0.21
       + Clean out $FILES_CREATED_BY_OBJECT when the destructor runs. Otherwise

Modified: branches/upstream/libfile-temp-perl/current/Temp.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfile-temp-perl/current/Temp.pm?rev=38938&op=diff
==============================================================================
--- branches/upstream/libfile-temp-perl/current/Temp.pm (original)
+++ branches/upstream/libfile-temp-perl/current/Temp.pm Mon Jun 29 18:04:29 2009
@@ -203,7 +203,7 @@
 
 # Version number
 
-$VERSION = '0.21';
+$VERSION = '0.22';
 
 # This is a list of characters that can be used in random filenames
 
@@ -2387,7 +2387,7 @@
 
 Tim Jenness E<lt>tjenness at cpan.orgE<gt>
 
-Copyright (C) 2007-2008 Tim Jenness.
+Copyright (C) 2007-2009 Tim Jenness.
 Copyright (C) 1999-2007 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

Modified: branches/upstream/libfile-temp-perl/current/t/fork.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfile-temp-perl/current/t/fork.t?rev=38938&op=diff
==============================================================================
--- branches/upstream/libfile-temp-perl/current/t/fork.t (original)
+++ branches/upstream/libfile-temp-perl/current/t/fork.t Mon Jun 29 18:04:29 2009
@@ -5,13 +5,26 @@
 
 use strict;
 
-BEGIN { print "1..8\n"; }
+BEGIN {
+  require Config;
+  my $can_fork = $Config::Config{d_fork} ||
+    (($^O eq 'MSWin32' || $^O eq 'NetWare') and
+     $Config::Config{useithreads} and
+     $Config::Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/
+    );
+  if ( $can_fork ) {
+    print "1..8\n";
+  } else {
+    print "1..0 # Skip No fork available\n";
+    exit;
+  }
+}
 
 use File::Temp;
 
 # OO interface
 
-my $file = File::Temp->new(CLEANUP=>1);
+my $file = File::Temp->new();
 
 myok( 1, -f $file->filename, "OO File exists" );
 
@@ -47,7 +60,7 @@
 
 # non-OO interface
 
-my ($fh, $filename) = File::Temp::tempfile( CLEANUP => 1 );
+my ($fh, $filename) = File::Temp::tempfile( UNLINK => 1 );
 
 myok( 5, -f $filename, "non-OO File exists" );