r53480 - in /branches/upstream/libautodie-perl/current: AUTHORS Changes META.yml lib/Fatal.pm lib/autodie.pm lib/autodie/exception.pm lib/autodie/exception/system.pm lib/autodie/hints.pm t/internal-backcompat.t t/open.t

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Mon Mar 1 21:57:35 UTC 2010


Author: gregoa
Date: Mon Mar  1 21:57:23 2010
New Revision: 53480

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

Modified:
    branches/upstream/libautodie-perl/current/AUTHORS
    branches/upstream/libautodie-perl/current/Changes
    branches/upstream/libautodie-perl/current/META.yml
    branches/upstream/libautodie-perl/current/lib/Fatal.pm
    branches/upstream/libautodie-perl/current/lib/autodie.pm
    branches/upstream/libautodie-perl/current/lib/autodie/exception.pm
    branches/upstream/libautodie-perl/current/lib/autodie/exception/system.pm
    branches/upstream/libautodie-perl/current/lib/autodie/hints.pm
    branches/upstream/libautodie-perl/current/t/internal-backcompat.t
    branches/upstream/libautodie-perl/current/t/open.t

Modified: branches/upstream/libautodie-perl/current/AUTHORS
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/AUTHORS?rev=53480&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/AUTHORS (original)
+++ branches/upstream/libautodie-perl/current/AUTHORS Mon Mar  1 21:57:23 2010
@@ -49,7 +49,7 @@
 	  of how it's been dressed.
 
 Matt Kraai
-        - Formatting fixess in diagnostics.
+        - Formatting fixes in diagnostics.
 
 Darren Duncan
         - Spotting omissions in user documentation.
@@ -90,3 +90,28 @@
 
 Elliot Shank
         - Integration into Perl::Critic
+
+Michael Schwern
+        - Finding a more-than-a-decade old bug in Fatal that caused
+          it to leak carp functions.
+        - Improvements to generated error messages.
+
+David Taylor
+        - Documentation fixes.
+
+Nick Cleaton
+        - Support for multi-arg open.
+
+Craig A. Berry
+        - VMS support.
+
+Jonathan Yu
+        - chmod support.
+        - Prevention of author tests failing if Sub::Identify not installed.
+
+Jerry D. Hedden
+        - Better test output, particularly when running as part of the
+          Perl core.
+
+Curtis Jewell
+        - Improvements to File::Copy tests under Windows.

Modified: branches/upstream/libautodie-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/Changes?rev=53480&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/Changes (original)
+++ branches/upstream/libautodie-perl/current/Changes Mon Mar  1 21:57:23 2010
@@ -1,6 +1,16 @@
 Revision history for autodie
 
-2.09  Tue Feb 23 00:33:09 EST 2010
+2.10  Sat Feb 27 14:01:18 AUSEST 2010
+        * BUGFIX: Fatal and autodie no longer leak Carp functions
+          into the caller's namespace.  Thanks to Schwern.
+
+        * TEST: Multi-arg open tests are really really skipped
+          under Windows now.
+
+        * DOCUMENTATION: Many more people are properly attributed
+          in the 'AUTHORS' file.
+
+2.09  Tue Feb 23 00:33:09 AUSEST 2010
         * DOCS: Fixed documentation typo.  RT #48575
           Thanks to David Taylor.
 

Modified: branches/upstream/libautodie-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/META.yml?rev=53480&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/META.yml (original)
+++ branches/upstream/libautodie-perl/current/META.yml Mon Mar  1 21:57:23 2010
@@ -27,4 +27,4 @@
   bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie
   license: http://dev.perl.org/licenses/
   repository: http://github.com/pfenwick/autodie/tree/master
-version: 2.09
+version: 2.10

Modified: branches/upstream/libautodie-perl/current/lib/Fatal.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/lib/Fatal.pm?rev=53480&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/lib/Fatal.pm (original)
+++ branches/upstream/libautodie-perl/current/lib/Fatal.pm Mon Mar  1 21:57:23 2010
@@ -40,7 +40,7 @@
 use constant MIN_IPC_SYS_SIMPLE_VER => 0.12;
 
 # All the Fatal/autodie modules share the same version number.
-our $VERSION = '2.09';
+our $VERSION = '2.10';
 
 our $Debug ||= 0;
 
@@ -115,6 +115,7 @@
     ':2.07'  => [qw(:v207)],     # Last release without chmod
     ':2.08'  => [qw(:default)],
     ':2.09'  => [qw(:default)],
+    ':2.10'  => [qw(:default)],
 );
 
 # chmod was only introduced in 2.07
@@ -632,11 +633,11 @@
 
         if ($void) {
             return qq/return (defined wantarray)?$call(@argv):
-                   $call(@argv) || croak "Can't $name(\@_)/ .
-                   ($core ? ': $!' : ', \$! is \"$!\"') . '"'
+                   $call(@argv) || Carp::croak("Can't $name(\@_)/ .
+                   ($core ? ': $!' : ', \$! is \"$!\"') . '")'
         } else {
-            return qq{return $call(@argv) || croak "Can't $name(\@_)} .
-                   ($core ? ': $!' : ', \$! is \"$!\"') . '"';
+            return qq{return $call(@argv) || Carp::croak("Can't $name(\@_)} .
+                   ($core ? ': $!' : ', \$! is \"$!\"') . '")';
         }
     }
 
@@ -1098,7 +1099,7 @@
 
         {
             local $@;
-            $code = eval("package $pkg; use Carp; $code");  ## no critic
+            $code = eval("package $pkg; require Carp; $code");  ## no critic
             $E = $@;
         }
 
@@ -1176,7 +1177,7 @@
             >;
         }
 
-        $leak_guard .= qq< croak "Internal error in Fatal/autodie.  Leak-guard failure"; } >;
+        $leak_guard .= qq< Carp::croak("Internal error in Fatal/autodie.  Leak-guard failure"); } >;
 
         # warn "$leak_guard\n";
 

Modified: branches/upstream/libautodie-perl/current/lib/autodie.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/lib/autodie.pm?rev=53480&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/lib/autodie.pm (original)
+++ branches/upstream/libautodie-perl/current/lib/autodie.pm Mon Mar  1 21:57:23 2010
@@ -8,7 +8,7 @@
 our $VERSION;
 
 BEGIN {
-    $VERSION = '2.09';
+    $VERSION = '2.10';
 }
 
 use constant ERROR_WRONG_FATAL => q{

Modified: branches/upstream/libautodie-perl/current/lib/autodie/exception.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/lib/autodie/exception.pm?rev=53480&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/lib/autodie/exception.pm (original)
+++ branches/upstream/libautodie-perl/current/lib/autodie/exception.pm Mon Mar  1 21:57:23 2010
@@ -14,7 +14,7 @@
 
 use if ($] >= 5.010), overload => '~~'  => "matches";
 
-our $VERSION = '2.09';
+our $VERSION = '2.10';
 
 my $PACKAGE = __PACKAGE__;  # Useful to have a scalar for hash keys.
 

Modified: branches/upstream/libautodie-perl/current/lib/autodie/exception/system.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/lib/autodie/exception/system.pm?rev=53480&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/lib/autodie/exception/system.pm (original)
+++ branches/upstream/libautodie-perl/current/lib/autodie/exception/system.pm Mon Mar  1 21:57:23 2010
@@ -5,7 +5,7 @@
 use base 'autodie::exception';
 use Carp qw(croak);
 
-our $VERSION = '2.09';
+our $VERSION = '2.10';
 
 my $PACKAGE = __PACKAGE__;
 

Modified: branches/upstream/libautodie-perl/current/lib/autodie/hints.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/lib/autodie/hints.pm?rev=53480&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/lib/autodie/hints.pm (original)
+++ branches/upstream/libautodie-perl/current/lib/autodie/hints.pm Mon Mar  1 21:57:23 2010
@@ -5,7 +5,7 @@
 
 use constant PERL58 => ( $] < 5.009 );
 
-our $VERSION = '2.09';
+our $VERSION = '2.10';
 
 =head1 NAME
 

Modified: branches/upstream/libautodie-perl/current/t/internal-backcompat.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/t/internal-backcompat.t?rev=53480&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/t/internal-backcompat.t (original)
+++ branches/upstream/libautodie-perl/current/t/internal-backcompat.t Mon Mar  1 21:57:23 2010
@@ -43,9 +43,9 @@
                                                 [ 3, qw($_[0] $_[1] @_[2..$#_])]
         ],
         q{	if (@_ == 1) {
-return CORE::open($_[0]) || croak "Can't open(@_): $!"	} elsif (@_ == 2) {
-return CORE::open($_[0], $_[1]) || croak "Can't open(@_): $!"	} elsif (@_ >= 3) {
-return CORE::open($_[0], $_[1], @_[2..$#_]) || croak "Can't open(@_): $!"
+return CORE::open($_[0]) || Carp::croak("Can't open(@_): $!")	} elsif (@_ == 2) {
+return CORE::open($_[0], $_[1]) || Carp::croak("Can't open(@_): $!")	} elsif (@_ >= 3) {
+return CORE::open($_[0], $_[1], @_[2..$#_]) || Carp::croak("Can't open(@_): $!")
             }
             die "Internal error: open(@_): Do not expect to get ", scalar(@_), " arguments";
     }
@@ -62,12 +62,12 @@
         # Core  # Call          # Name  # Void   # Args
     [
         [ 1,    'CORE::open',   'open', 0,      qw($_[0] $_[1] @_[2..$#_]) ],
-        q{return CORE::open($_[0], $_[1], @_[2..$#_]) || croak "Can't open(@_): $!"},
+        q{return CORE::open($_[0], $_[1], @_[2..$#_]) || Carp::croak("Can't open(@_): $!")},
     ],
     [
         [ 1,    'CORE::open',   'open', 1,      qw($_[0] $_[1] @_[2..$#_]) ],
         q{return (defined wantarray)?CORE::open($_[0], $_[1], @_[2..$#_]):
-                   CORE::open($_[0], $_[1], @_[2..$#_]) || croak "Can't open(@_): $!"},
+                   CORE::open($_[0], $_[1], @_[2..$#_]) || Carp::croak("Can't open(@_): $!")},
     ],
 );
 

Modified: branches/upstream/libautodie-perl/current/t/open.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/t/open.t?rev=53480&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/t/open.t (original)
+++ branches/upstream/libautodie-perl/current/t/open.t Mon Mar  1 21:57:23 2010
@@ -56,7 +56,7 @@
 eval {
     use autodie;
 
-    die "Windows does not support multi-arg pipe" if $^O eq "Win32";
+    die "Windows does not support multi-arg pipe" if $^O eq "MSWin32";
 
     open(my $fh, '-|', "true");
 };




More information about the Pkg-perl-cvs-commits mailing list