r34808 - in /branches/upstream/libexception-class-perl/current: Build.PL Changes META.yml Makefile.PL SIGNATURE lib/Exception/Class.pm

ansgar-guest at users.alioth.debian.org ansgar-guest at users.alioth.debian.org
Tue May 5 20:24:17 UTC 2009


Author: ansgar-guest
Date: Tue May  5 20:24:12 2009
New Revision: 34808

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

Modified:
    branches/upstream/libexception-class-perl/current/Build.PL
    branches/upstream/libexception-class-perl/current/Changes
    branches/upstream/libexception-class-perl/current/META.yml
    branches/upstream/libexception-class-perl/current/Makefile.PL
    branches/upstream/libexception-class-perl/current/SIGNATURE
    branches/upstream/libexception-class-perl/current/lib/Exception/Class.pm

Modified: branches/upstream/libexception-class-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libexception-class-perl/current/Build.PL?rev=34808&op=diff
==============================================================================
--- branches/upstream/libexception-class-perl/current/Build.PL (original)
+++ branches/upstream/libexception-class-perl/current/Build.PL Tue May  5 20:24:12 2009
@@ -1,4 +1,7 @@
+use 5.008001;
+
 use strict;
+use warnings;
 
 use Module::Build;
 
@@ -9,6 +12,7 @@
           requires    => { 'Class::Data::Inheritable' => '0.02',
                            'Devel::StackTrace'        => '1.20',
                            'Scalar::Util'             => '0',
+                           'perl'                     => '5.008001',
                          },
           build_requires => { 'Test::More' => '0.46',
                             },

Modified: branches/upstream/libexception-class-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libexception-class-perl/current/Changes?rev=34808&op=diff
==============================================================================
--- branches/upstream/libexception-class-perl/current/Changes (original)
+++ branches/upstream/libexception-class-perl/current/Changes Tue May  5 20:24:12 2009
@@ -1,3 +1,14 @@
+1.27 May 4, 2009
+
+* The error message for an exception no longer defaults to $!. This
+  was a bad idea, and has bitten some people. Addresses RT #43600.
+
+* I'm now only supporting Perl 5.8.1+. This module broke on 5.6.2 (and
+  5.8.0) at some point and I don't really care enough to fix
+  it. Non-intrusive patches to make it work on 5.8.0 or less (again)
+  will be accepted.
+
+
 1.26 Oct 25, 2008
 
 - No code changes, just bumped the Devel::StackTrace dependency to

Modified: branches/upstream/libexception-class-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libexception-class-perl/current/META.yml?rev=34808&op=diff
==============================================================================
--- branches/upstream/libexception-class-perl/current/META.yml (original)
+++ branches/upstream/libexception-class-perl/current/META.yml Tue May  5 20:24:12 2009
@@ -1,6 +1,6 @@
 ---
 name: Exception-Class
-version: 1.26
+version: 1.27
 author:
   - 'Dave Rolsky, <autarch at urth.org>'
 abstract: A module that allows you to declare real exception classes in Perl
@@ -11,16 +11,17 @@
   Class::Data::Inheritable: 0.02
   Devel::StackTrace: 1.20
   Scalar::Util: 0
+  perl: 5.008001
 build_requires:
   Test::More: 0.46
 provides:
   Exception::Class:
     file: lib/Exception/Class.pm
-    version: 1.26
+    version: 1.27
   Exception::Class::Base:
     file: lib/Exception/Class.pm
     version: 1.2
-generated_by: Module::Build version 0.3
+generated_by: Module::Build version 0.32
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.2.html
   version: 1.2

Modified: branches/upstream/libexception-class-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libexception-class-perl/current/Makefile.PL?rev=34808&op=diff
==============================================================================
--- branches/upstream/libexception-class-perl/current/Makefile.PL (original)
+++ branches/upstream/libexception-class-perl/current/Makefile.PL Tue May  5 20:24:12 2009
@@ -1,4 +1,5 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.30
+# Note: this file was auto-generated by Module::Build::Compat version 0.32
+require 5.008001;
 use ExtUtils::MakeMaker;
 WriteMakefile
 (
@@ -11,7 +12,6 @@
                            'Test::More' => '0.46'
                          },
           'INSTALLDIRS' => 'site',
-          'EXE_FILES' => [],
-          'PL_FILES' => {}
+          'EXE_FILES' => []
         )
 ;

Modified: branches/upstream/libexception-class-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libexception-class-perl/current/SIGNATURE?rev=34808&op=diff
==============================================================================
--- branches/upstream/libexception-class-perl/current/SIGNATURE (original)
+++ branches/upstream/libexception-class-perl/current/SIGNATURE Tue May  5 20:24:12 2009
@@ -15,22 +15,22 @@
 Hash: SHA1
 
 SHA1 5f0d8c63d57e17a4fd71f16253c4199459fbf78c .shipit
-SHA1 bacec1634c491748a2afc691ae771b2f562c2d62 Build.PL
-SHA1 0fae4f301275238595e1f1f976487a76b2303423 Changes
+SHA1 cddc6c2496a35c0fbc8be01e0026abdf01d81165 Build.PL
+SHA1 68859fceab4295913294dc2ff322c1d760cccb64 Changes
 SHA1 f235ba4160673bcb7c9d58c2f09dbc7fc0efadea LICENSE
 SHA1 e1326666ba4000b34cf057dbd3d807acb92ed2d9 MANIFEST
-SHA1 c293283185ad341d04718c76771acf9bbf5eb0f3 META.yml
-SHA1 5e7092f7dcba8a2db185febb67947f6d07207aa9 Makefile.PL
-SHA1 e9507af0f8cfd1b91fa650067f328599d1b1fc04 lib/Exception/Class.pm
+SHA1 ec5197edc4993d7a5380c6480352e9ae9bb32836 META.yml
+SHA1 39708f6431bd5b45268b7728ee1f4e713b68a965 Makefile.PL
+SHA1 d59f1c0d24fcfb615dc6ce6359fd580a0f411964 lib/Exception/Class.pm
 SHA1 cec61865b88cb8e9ce8b9a5e930e85c44142dd2e t/basic.t
 SHA1 58af03881eb473337b01aa4f07469e86d2090d8d t/caught.t
 SHA1 d6e425dcfb12707a1a33c0592641dbf5dd558370 t/ignore.t
 SHA1 9de9dfd55e96087b41493345c1bb756529661124 t/pod-coverage.t
 SHA1 cec881e89926d320475f9de2b7fad02c2169f510 t/pod.t
 -----BEGIN PGP SIGNATURE-----
-Version: GnuPG v1.4.6 (GNU/Linux)
+Version: GnuPG v1.4.9 (GNU/Linux)
 
-iD8DBQFJA8wP3Or3ZzQuifMRAq8nAJ9bfQNINFgKtq1vvcy90DvLLyOV2gCfb7dB
-VwotUGch+UWg8LpJQAM7Pzc=
-=sHm3
+iEYEARECAAYFAkn/ZuYACgkQ3Or3ZzQuifMgXwCgmsRNV/NRM4mAWEDjbC52DQ54
+WIsAniuXPKEwuNqmsYMFwQnyaaJQdbHc
+=UuW2
 -----END PGP SIGNATURE-----

Modified: branches/upstream/libexception-class-perl/current/lib/Exception/Class.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libexception-class-perl/current/lib/Exception/Class.pm?rev=34808&op=diff
==============================================================================
--- branches/upstream/libexception-class-perl/current/lib/Exception/Class.pm (original)
+++ branches/upstream/libexception-class-perl/current/lib/Exception/Class.pm Tue May  5 20:24:12 2009
@@ -1,16 +1,17 @@
 package Exception::Class;
 
-use 5.005;
+use 5.008001;
 
 use strict;
-use vars qw($VERSION $BASE_EXC_CLASS %CLASSES);
 
 use Scalar::Util qw(blessed);
 
-
+our $BASE_EXC_CLASS;
 BEGIN { $BASE_EXC_CLASS ||= 'Exception::Class::Base'; }
 
-$VERSION = '1.26';
+our $VERSION = '1.27';
+
+our %CLASSES;
 
 sub import
 {
@@ -293,8 +294,7 @@
     my $self = shift;
     my %p = @_ == 1 ? ( error => $_[0] ) : @_;
 
-    # Try to get something useful in there (I hope).  Or just give up.
-    $self->{message} = $p{message} || $p{error} || $! || '';
+    $self->{message} = $p{message} || $p{error} || '';
 
     $self->{show_trace} = $p{show_trace} if exists $p{show_trace};
 
@@ -680,8 +680,8 @@
 =item * throw( error => $error )
 
 This method creates a new object with the given error message.  If no
-error message is given, C<$!> is used.  It then die's with this object
-as its argument.
+error message is given, this will be an empty string.  It then die's
+with this object as its argument.
 
 This method also takes a C<show_trace> parameter which indicates
 whether or not the particular exception object being created should




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