r40017 - in /trunk/libdevel-stacktrace-perl: Changes META.yml Makefile.PL README SIGNATURE debian/changelog lib/Devel/StackTrace.pm t/01-basic.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Thu Jul 16 20:43:00 UTC 2009
Author: jawnsy-guest
Date: Thu Jul 16 20:42:53 2009
New Revision: 40017
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=40017
Log:
No release necessary
* New upstream release
+ Fix affecting Perl 5.8.5 (RT#47900)
Modified:
trunk/libdevel-stacktrace-perl/Changes
trunk/libdevel-stacktrace-perl/META.yml
trunk/libdevel-stacktrace-perl/Makefile.PL
trunk/libdevel-stacktrace-perl/README
trunk/libdevel-stacktrace-perl/SIGNATURE
trunk/libdevel-stacktrace-perl/debian/changelog
trunk/libdevel-stacktrace-perl/lib/Devel/StackTrace.pm
trunk/libdevel-stacktrace-perl/t/01-basic.t
Modified: trunk/libdevel-stacktrace-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-stacktrace-perl/Changes?rev=40017&op=diff
==============================================================================
--- trunk/libdevel-stacktrace-perl/Changes (original)
+++ trunk/libdevel-stacktrace-perl/Changes Thu Jul 16 20:42:53 2009
@@ -1,3 +1,11 @@
+1.22 Jul 15, 2009
+
+- Apparently, overload::StrVal on older Perls (5.8.5, but not 5.8.8)
+ tried to call a stringification method if it existed. So now,
+ Devel::StackTrace just uses overload::AddrRef instead, which should
+ always be safe. Reported by Michael Stevens. Fixes RT #47900.
+
+
1.21 Jul 1, 2009
- Overloaded objects which didn't provide a stringification method
Modified: trunk/libdevel-stacktrace-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-stacktrace-perl/META.yml?rev=40017&op=diff
==============================================================================
--- trunk/libdevel-stacktrace-perl/META.yml (original)
+++ trunk/libdevel-stacktrace-perl/META.yml Thu Jul 16 20:42:53 2009
@@ -1,6 +1,6 @@
---
name: Devel-StackTrace
-version: 1.21
+version: 1.22
author:
- 'Dave Rolsky, <autarch at urth.org>'
abstract: Stack trace and stack trace frame objects
@@ -15,8 +15,8 @@
provides:
Devel::StackTrace:
file: lib/Devel/StackTrace.pm
- version: 1.21
-generated_by: Module::Build version 0.32
+ version: 1.22
+generated_by: Module::Build version 0.280801
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.2.html
version: 1.2
Modified: trunk/libdevel-stacktrace-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-stacktrace-perl/Makefile.PL?rev=40017&op=diff
==============================================================================
--- trunk/libdevel-stacktrace-perl/Makefile.PL (original)
+++ trunk/libdevel-stacktrace-perl/Makefile.PL Thu Jul 16 20:42:53 2009
@@ -1,4 +1,4 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.32
+# Note: this file was auto-generated by Module::Build::Compat version 0.2808_01
require 5.006;
use ExtUtils::MakeMaker;
WriteMakefile
@@ -11,6 +11,7 @@
'Test::More' => '0.46'
},
'INSTALLDIRS' => 'site',
- 'EXE_FILES' => []
+ 'EXE_FILES' => [],
+ 'PL_FILES' => {}
)
;
Modified: trunk/libdevel-stacktrace-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-stacktrace-perl/README?rev=40017&op=diff
==============================================================================
--- trunk/libdevel-stacktrace-perl/README (original)
+++ trunk/libdevel-stacktrace-perl/README Thu Jul 16 20:42:53 2009
@@ -98,12 +98,12 @@
stringified representation.
* respect_overload => $boolean
- By default, Devel::StackTrace will call `overload::StrVal()'
- to get the underlying string representation of an object,
- instead of respecting the object's stringification
- overloading. If you would prefer to see the overloaded
- representation of objects in stack traces, then set this
- parameter to true.
+ By default, Devel::StackTrace will call
+ `overload::AddrRef()' to get the underlying string
+ representation of an object, instead of respecting the
+ object's stringification overloading. If you would prefer to
+ see the overloaded representation of objects in stack
+ traces, then set this parameter to true.
* max_arg_length => $integer
By default, Devel::StackTrace will display the entire
Modified: trunk/libdevel-stacktrace-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-stacktrace-perl/SIGNATURE?rev=40017&op=diff
==============================================================================
--- trunk/libdevel-stacktrace-perl/SIGNATURE (original)
+++ trunk/libdevel-stacktrace-perl/SIGNATURE Thu Jul 16 20:42:53 2009
@@ -16,14 +16,14 @@
SHA1 7afddfc9acf24c266120ef5c2f7bd386d2d3901d .shipit
SHA1 e35fb27b937280dc6e1b2f441a59e47b68faa1d1 Build.PL
-SHA1 daf9224c5fb956ac691cc9993d997057352c6ea3 Changes
+SHA1 166dde560dfac683c03b92f1721d66aa2835f759 Changes
SHA1 f235ba4160673bcb7c9d58c2f09dbc7fc0efadea LICENSE
SHA1 9ed43409974a8b931e0e34af209d4f99ccc68d50 MANIFEST
-SHA1 bf5a7faa7ad012d99b60f4d335795128ebe880cc META.yml
-SHA1 d3fba80c75c76ffd9931e032698eb4d8f163e073 Makefile.PL
-SHA1 012ce979e725de9f869c8860160f2ad8c113112e README
-SHA1 12ae116b50eda7d99b68572ff3a294264613e538 lib/Devel/StackTrace.pm
-SHA1 72f07c9a4eb8b75e1a9968a7b396b57a51675c11 t/01-basic.t
+SHA1 21f21aeac63758b65b1b4368159fad8c745ba733 META.yml
+SHA1 4b62edd5403cd0d20d55e30c37f9ab66b7c16255 Makefile.PL
+SHA1 e2d1e672cbe0736f2ba875a710470db4966008bb README
+SHA1 6153512764fc37df958567ca10ab43962b1667b6 lib/Devel/StackTrace.pm
+SHA1 541a8627e32d01a0a395fd70a0cfad4f5163064f t/01-basic.t
SHA1 21a1538da8dbde54af7a1708fa2470dd74fe67fc t/02-bad-utf8.t
SHA1 9ade2293d6e5ea77d94532132c89cd205ea85ed7 t/kwalitee.t
SHA1 28a931f3b0c075d8d6c4ce47d5e89c3fdb19ed0f t/pod-coverage.t
@@ -31,7 +31,7 @@
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (GNU/Linux)
-iEYEARECAAYFAkpMPFwACgkQIgMCsV8qvRJYvwCeM0CazZnfr/RGLySI/LnP6IZ6
-+YsAoJFeyDzP1NEnba41rHSB9cKgi7UV
-=H3+L
+iEYEARECAAYFAkpeMyQACgkQIgMCsV8qvRLunwCfcYaGRVtuZc28Wmc0dd20ZxWc
+xeMAoI2le7W01yd2CndGOkMfHM/+KDNf
+=MI7n
-----END PGP SIGNATURE-----
Modified: trunk/libdevel-stacktrace-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-stacktrace-perl/debian/changelog?rev=40017&op=diff
==============================================================================
--- trunk/libdevel-stacktrace-perl/debian/changelog (original)
+++ trunk/libdevel-stacktrace-perl/debian/changelog Thu Jul 16 20:42:53 2009
@@ -1,3 +1,12 @@
+libdevel-stacktrace-perl (1.2200-1) UNRELEASED; urgency=low
+
+ No release necessary
+
+ * New upstream release
+ + Fix affecting Perl 5.8.5 (RT#47900)
+
+ -- Jonathan Yu <frequency at cpan.org> Thu, 16 Jul 2009 12:43:52 -0400
+
libdevel-stacktrace-perl (1.2100-1) unstable; urgency=low
[ gregor herrmann ]
Modified: trunk/libdevel-stacktrace-perl/lib/Devel/StackTrace.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-stacktrace-perl/lib/Devel/StackTrace.pm?rev=40017&op=diff
==============================================================================
--- trunk/libdevel-stacktrace-perl/lib/Devel/StackTrace.pm (original)
+++ trunk/libdevel-stacktrace-perl/lib/Devel/StackTrace.pm Thu Jul 16 20:42:53 2009
@@ -12,7 +12,7 @@
'""' => \&as_string,
fallback => 1;
-our $VERSION = '1.21';
+our $VERSION = '1.22';
sub new
@@ -48,7 +48,8 @@
{
my @a = @DB::args;
- if ( $self->{no_refs} ) {
+ if ( $self->{no_refs} )
+ {
@a = map { ref $_ ? $self->_ref_to_string($_) : $_ } @a;
}
@@ -64,40 +65,17 @@
my $self = shift;
my $ref = shift;
- return overload::StrVal($ref)
+ return overload::AddrRef($ref)
if blessed $ref && $ref->isa('Exception::Class::Base');
- return overload::StrVal($ref) unless $self->{respect_overload};
+ return overload::AddrRef($ref) unless $self->{respect_overload};
local $@;
local $SIG{__DIE__};
my $str = eval { $ref . '' };
- return $@ ? overload::StrVal($ref) : $str;
-}
-
-sub _ecb_hack
-{
- my $self = shift;
- my $ref = shift;
-
- # This avoids a loop between Exception::Class::Base and this module
- if ( $ref->can('show_trace') )
- {
- my $t = $ref->show_trace;
- $ref->show_trace(0);
- my $s = "$ref";
- $ref->show_trace($t);
-
- return $s;
- }
- else
- {
- # hack but should work with older
- # versions of E::C::B
- return $ref->{message};
- }
+ return $@ ? overload::AddrRef($ref) : $str;
}
sub _make_frames
@@ -515,7 +493,7 @@
=item * respect_overload => $boolean
-By default, Devel::StackTrace will call C<overload::StrVal()> to get
+By default, Devel::StackTrace will call C<overload::AddrRef()> to get
the underlying string representation of an object, instead of
respecting the object's stringification overloading. If you would
prefer to see the overloaded representation of objects in stack
Modified: trunk/libdevel-stacktrace-perl/t/01-basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-stacktrace-perl/t/01-basic.t?rev=40017&op=diff
==============================================================================
--- trunk/libdevel-stacktrace-perl/t/01-basic.t (original)
+++ trunk/libdevel-stacktrace-perl/t/01-basic.t Thu Jul 16 20:42:53 2009
@@ -294,6 +294,7 @@
my $trace = overload_no_stringify( CodeOverload->new() );
eval { $trace->as_string() };
+
is( $@, q{},
'no error when respect_overload is true and object overloads but does not stringify' );
}
More information about the Pkg-perl-cvs-commits
mailing list