r26445 - in /trunk/libexception-class-perl: Build.PL Changes META.yml Makefile.PL SIGNATURE debian/changelog lib/Exception/Class.pm
ghostbar-guest at users.alioth.debian.org
ghostbar-guest at users.alioth.debian.org
Sat Nov 1 20:49:48 UTC 2008
Author: ghostbar-guest
Date: Sat Nov 1 20:49:45 2008
New Revision: 26445
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=26445
Log:
New upstream release
Modified:
trunk/libexception-class-perl/Build.PL
trunk/libexception-class-perl/Changes
trunk/libexception-class-perl/META.yml
trunk/libexception-class-perl/Makefile.PL
trunk/libexception-class-perl/SIGNATURE
trunk/libexception-class-perl/debian/changelog
trunk/libexception-class-perl/lib/Exception/Class.pm
Modified: trunk/libexception-class-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libexception-class-perl/Build.PL?rev=26445&op=diff
==============================================================================
--- trunk/libexception-class-perl/Build.PL (original)
+++ trunk/libexception-class-perl/Build.PL Sat Nov 1 20:49:45 2008
@@ -3,15 +3,17 @@
use Module::Build;
my $build =
- Module::Build->new( module_name => 'Exception::Class',
- license => 'perl',
- requires => { 'Class::Data::Inheritable' => 0.02,
- 'Devel::StackTrace' => 1.17,
- 'Scalar::Util' => 0,
- 'Test::More' => 0.46,
- },
- sign => 1,
- create_makefile_pl => 'traditional',
- );
+ Module::Build->new
+ ( module_name => 'Exception::Class',
+ license => 'perl',
+ requires => { 'Class::Data::Inheritable' => '0.02',
+ 'Devel::StackTrace' => '1.20',
+ 'Scalar::Util' => '0',
+ },
+ build_requires => { 'Test::More' => '0.46',
+ },
+ sign => 1,
+ create_makefile_pl => 'traditional',
+ );
$build->create_build_script;
Modified: trunk/libexception-class-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libexception-class-perl/Changes?rev=26445&op=diff
==============================================================================
--- trunk/libexception-class-perl/Changes (original)
+++ trunk/libexception-class-perl/Changes Sat Nov 1 20:49:45 2008
@@ -1,3 +1,23 @@
+1.26 Oct 25, 2008
+
+- No code changes, just bumped the Devel::StackTrace dependency to
+ 1.20.
+
+ The changes in 1.25 exposed a bug in Devel::StackTrace which has now
+ been fixed. This caused HTML::Mason test failures, among other
+ things. Reported by Andreas Koenig.
+
+
+1.25 Oct 21, 2008
+
+- The Exception::Class::Base constructor no longer looks at the
+ associated Devel::StackTrace object's frames. Avoiding looking at
+ the frames should make constructing exception objects much
+ faster. Instead the information based on the stack trace frames -
+ package(), file(), and line() - is only retrieved when it is
+ requested. Patch by Ruslan Zakirov. RT #40221.
+
+
1.24 Mar 30, 2008
- Added a MaxArgLength class parameter to go along with the new
Modified: trunk/libexception-class-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libexception-class-perl/META.yml?rev=26445&op=diff
==============================================================================
--- trunk/libexception-class-perl/META.yml (original)
+++ trunk/libexception-class-perl/META.yml Sat Nov 1 20:49:45 2008
@@ -1,6 +1,6 @@
---
name: Exception-Class
-version: 1.24
+version: 1.26
author:
- 'Dave Rolsky, <autarch at urth.org>'
abstract: A module that allows you to declare real exception classes in Perl
@@ -9,17 +9,18 @@
license: http://dev.perl.org/licenses/
requires:
Class::Data::Inheritable: 0.02
- Devel::StackTrace: 1.17
+ Devel::StackTrace: 1.20
Scalar::Util: 0
+build_requires:
Test::More: 0.46
provides:
Exception::Class:
file: lib/Exception/Class.pm
- version: 1.24
+ version: 1.26
Exception::Class::Base:
file: lib/Exception/Class.pm
version: 1.2
-generated_by: Module::Build version 0.2808
+generated_by: Module::Build version 0.3
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.2.html
version: 1.2
Modified: trunk/libexception-class-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libexception-class-perl/Makefile.PL?rev=26445&op=diff
==============================================================================
--- trunk/libexception-class-perl/Makefile.PL (original)
+++ trunk/libexception-class-perl/Makefile.PL Sat Nov 1 20:49:45 2008
@@ -1,4 +1,4 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.03
+# Note: this file was auto-generated by Module::Build::Compat version 0.30
use ExtUtils::MakeMaker;
WriteMakefile
(
@@ -6,7 +6,7 @@
'VERSION_FROM' => 'lib/Exception/Class.pm',
'PREREQ_PM' => {
'Class::Data::Inheritable' => '0.02',
- 'Devel::StackTrace' => '1.17',
+ 'Devel::StackTrace' => '1.20',
'Scalar::Util' => '0',
'Test::More' => '0.46'
},
Modified: trunk/libexception-class-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libexception-class-perl/SIGNATURE?rev=26445&op=diff
==============================================================================
--- trunk/libexception-class-perl/SIGNATURE (original)
+++ trunk/libexception-class-perl/SIGNATURE Sat Nov 1 20:49:45 2008
@@ -15,13 +15,13 @@
Hash: SHA1
SHA1 5f0d8c63d57e17a4fd71f16253c4199459fbf78c .shipit
-SHA1 1485ed1c81c7b5587f867049d75da0b3db5a13e6 Build.PL
-SHA1 c02a50529c9c4c20a7b233dd14948e79bb8b05d7 Changes
+SHA1 bacec1634c491748a2afc691ae771b2f562c2d62 Build.PL
+SHA1 0fae4f301275238595e1f1f976487a76b2303423 Changes
SHA1 f235ba4160673bcb7c9d58c2f09dbc7fc0efadea LICENSE
SHA1 e1326666ba4000b34cf057dbd3d807acb92ed2d9 MANIFEST
-SHA1 7c364c0177e603a4562696738a883e4aeabb7554 META.yml
-SHA1 0f7fce3b5951d603f993dc675ccaf843b6749e97 Makefile.PL
-SHA1 52f1457c6db547e578ae15c64b201105ca90a5b6 lib/Exception/Class.pm
+SHA1 c293283185ad341d04718c76771acf9bbf5eb0f3 META.yml
+SHA1 5e7092f7dcba8a2db185febb67947f6d07207aa9 Makefile.PL
+SHA1 e9507af0f8cfd1b91fa650067f328599d1b1fc04 lib/Exception/Class.pm
SHA1 cec61865b88cb8e9ce8b9a5e930e85c44142dd2e t/basic.t
SHA1 58af03881eb473337b01aa4f07469e86d2090d8d t/caught.t
SHA1 d6e425dcfb12707a1a33c0592641dbf5dd558370 t/ignore.t
@@ -30,7 +30,7 @@
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.6 (GNU/Linux)
-iD8DBQFH782W3Or3ZzQuifMRArfMAJ4trkcGZm95m2bQT62qxZvcUgyGQwCguXN5
-oi0ON/KqE38YDRNbxFSZHNg=
-=HyH5
+iD8DBQFJA8wP3Or3ZzQuifMRAq8nAJ9bfQNINFgKtq1vvcy90DvLLyOV2gCfb7dB
+VwotUGch+UWg8LpJQAM7Pzc=
+=sHm3
-----END PGP SIGNATURE-----
Modified: trunk/libexception-class-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libexception-class-perl/debian/changelog?rev=26445&op=diff
==============================================================================
--- trunk/libexception-class-perl/debian/changelog (original)
+++ trunk/libexception-class-perl/debian/changelog Sat Nov 1 20:49:45 2008
@@ -1,3 +1,9 @@
+libexception-class-perl (1.26-1) UNRELEASED; urgency=low
+
+ * (NOT RELEASED YET) New upstream release
+
+ -- Jose Luis Rivas <ghostbar38 at gmail.com> Sat, 01 Nov 2008 16:18:57 -0430
+
libexception-class-perl (1.24-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libexception-class-perl/lib/Exception/Class.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libexception-class-perl/lib/Exception/Class.pm?rev=26445&op=diff
==============================================================================
--- trunk/libexception-class-perl/lib/Exception/Class.pm (original)
+++ trunk/libexception-class-perl/lib/Exception/Class.pm Sat Nov 1 20:49:45 2008
@@ -10,7 +10,7 @@
BEGIN { $BASE_EXC_CLASS ||= 'Exception::Class::Base'; }
-$VERSION = '1.24';
+$VERSION = '1.26';
sub import
{
@@ -189,7 +189,7 @@
package Exception::Class::Base;
use Class::Data::Inheritable;
-use Devel::StackTrace 1.17;
+use Devel::StackTrace 1.20;
use base qw(Class::Data::Inheritable);
@@ -223,14 +223,37 @@
# Create accessor routines
BEGIN
{
- my @fields = qw( message pid uid euid gid egid time trace package file line );
-
- no strict 'refs';
+ my @fields = qw( message pid uid euid gid egid time trace );
+
foreach my $f (@fields)
{
- *{$f} = sub { my $s = shift; return $s->{$f}; };
- }
- *{'error'} = \&message;
+ my $sub = sub { my $s = shift; return $s->{$f}; };
+
+ no strict 'refs';
+ *{$f} = $sub;
+ }
+ *error = \&message;
+
+ my %trace_fields =
+ ( package => 'package',
+ file => 'filename',
+ line => 'line',
+ );
+
+ while ( my ( $f, $m ) = each %trace_fields )
+ {
+ my $sub = sub
+ {
+ my $s = shift;
+ return $s->{$f} if exists $s->{$f};
+
+ my $frame = $s->trace->frame(0);
+
+ return $s->{$f} = $frame ? $frame->$m() : undef;
+ };
+ no strict 'refs';
+ *{$f} = $sub;
+ }
}
1;
@@ -304,13 +327,6 @@
respect_overload => $self->RespectOverload,
max_arg_length => $self->MaxArgLength,
);
-
- if ( my $frame = $self->trace->frame(0) )
- {
- $self->{package} = $frame->package;
- $self->{line} = $frame->line;
- $self->{file} = $frame->filename;
- }
my %fields = map { $_ => 1 } $self->Fields;
while ( my ($key, $value) = each %p )
@@ -894,6 +910,27 @@
http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Exception%3A%3AClass or
via email at bug-exception-class at rt.cpan.org.
+=head1 DONATIONS
+
+If you'd like to thank me for the work I've done on this module,
+please consider making a "donation" to me via PayPal. I spend a lot of
+free time creating free software, and would appreciate any support
+you'd care to offer.
+
+Please note that B<I am not suggesting that you must do this> in order
+for me to continue working on this particular software. I will
+continue to do so, inasmuch as I have in the past, for as long as it
+interests me.
+
+Similarly, a donation made in this way will probably not make me work
+on this software much more, unless I get so many donations that I can
+consider working on free software full time, which seems unlikely at
+best.
+
+To donate, log into PayPal and send money to autarch at urth.org or use
+the button on this page:
+L<http://www.urth.org/~autarch/fs-donation.html>
+
=head1 AUTHOR
Dave Rolsky, <autarch at urth.org>
More information about the Pkg-perl-cvs-commits
mailing list