r52615 - in /trunk/librose-object-perl: Changes MANIFEST META.yml lib/Rose/Object.pm lib/Rose/Object/MakeMethods.pm lib/Rose/Object/MakeMethods/Generic.pm lib/Rose/Object/MixIn.pm xt/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Fri Feb 12 01:49:21 UTC 2010
Author: jawnsy-guest
Date: Fri Feb 12 01:49:15 2010
New Revision: 52615
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52615
Log:
integrate new upstream version
Added:
trunk/librose-object-perl/xt/
- copied from r52507, branches/upstream/librose-object-perl/current/xt/
Modified:
trunk/librose-object-perl/Changes
trunk/librose-object-perl/MANIFEST
trunk/librose-object-perl/META.yml
trunk/librose-object-perl/lib/Rose/Object.pm
trunk/librose-object-perl/lib/Rose/Object/MakeMethods.pm
trunk/librose-object-perl/lib/Rose/Object/MakeMethods/Generic.pm
trunk/librose-object-perl/lib/Rose/Object/MixIn.pm
Modified: trunk/librose-object-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-object-perl/Changes?rev=52615&op=diff
==============================================================================
--- trunk/librose-object-perl/Changes (original)
+++ trunk/librose-object-perl/Changes Fri Feb 12 01:49:15 2010
@@ -1,3 +1,14 @@
+0.858 (02.10.2010) - John Siracusa <siracusa at gmail.com>
+
+ * The CPAN shell in 5.10.1 (on Mac OS X, anyway) chokes on the
+ t/debugger.t test. I've moved it to the xt directory.
+
+0.857 (02.09.2010) - John Siracusa <siracusa at gmail.com>
+
+ * Fixed a bug that caused methods to be created more than once,
+ triggering a fatal error, when running under the debugger in
+ perl 5.10.1 and up. (RT 54444, patch by Christopher Masto)
+
0.856 (10.16.2009) - John Siracusa <siracusa at gmail.com>
* Updated eval blocks to avoid stomping on $@ from an outer scope.
Modified: trunk/librose-object-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-object-perl/MANIFEST?rev=52615&op=diff
==============================================================================
--- trunk/librose-object-perl/MANIFEST (original)
+++ trunk/librose-object-perl/MANIFEST Fri Feb 12 01:49:15 2010
@@ -16,4 +16,5 @@
t/makemethods-xs.t
t/pod.t
t/redefine.t
+xt/debugger.t
META.yml Module meta-data (added by MakeMaker)
Modified: trunk/librose-object-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-object-perl/META.yml?rev=52615&op=diff
==============================================================================
--- trunk/librose-object-perl/META.yml (original)
+++ trunk/librose-object-perl/META.yml Fri Feb 12 01:49:15 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Rose-Object
-version: 0.856
+version: 0.858
abstract: A simple object base class.
author:
- John Siracusa <siracusa at gmail.com>
@@ -23,7 +23,7 @@
directory:
- t
- inc
-generated_by: ExtUtils::MakeMaker version 6.54
+generated_by: ExtUtils::MakeMaker version 6.56
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
Modified: trunk/librose-object-perl/lib/Rose/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-object-perl/lib/Rose/Object.pm?rev=52615&op=diff
==============================================================================
--- trunk/librose-object-perl/lib/Rose/Object.pm (original)
+++ trunk/librose-object-perl/lib/Rose/Object.pm Fri Feb 12 01:49:15 2010
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '0.856';
+our $VERSION = '0.858';
sub new
{
Modified: trunk/librose-object-perl/lib/Rose/Object/MakeMethods.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-object-perl/lib/Rose/Object/MakeMethods.pm?rev=52615&op=diff
==============================================================================
--- trunk/librose-object-perl/lib/Rose/Object/MakeMethods.pm (original)
+++ trunk/librose-object-perl/lib/Rose/Object/MakeMethods.pm Fri Feb 12 01:49:15 2010
@@ -161,9 +161,13 @@
sub apparently_made_method
{
my($class, $code) = @_;
+
my($mm_class, $name) = $class->sub_identity($code);
return 0 unless($class && $name);
- return (($mm_class eq $class && $name eq '__ANON__') ||
+ # XXX: RT 54444 - The formerly constant "__ANON__" sub name looks
+ # XXX: like this in newer versions of perl when running under the
+ # XXX: debugger: "__ANON__[/usr/lib/perl5/.../Some/Module.pm:123]"
+ return (($mm_class eq $class && $name =~ /^__ANON__/) ||
$Made_Method_Custom{$mm_class}{$name}) ? 1 : 0;
}
@@ -185,7 +189,7 @@
return unless($cv->isa('B::CV'));
@id = ($cv->GV->STASH->NAME, $cv->GV->NAME);
};
-
+
# Ignore errors
}
Modified: trunk/librose-object-perl/lib/Rose/Object/MakeMethods/Generic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-object-perl/lib/Rose/Object/MakeMethods/Generic.pm?rev=52615&op=diff
==============================================================================
--- trunk/librose-object-perl/lib/Rose/Object/MakeMethods/Generic.pm (original)
+++ trunk/librose-object-perl/lib/Rose/Object/MakeMethods/Generic.pm Fri Feb 12 01:49:15 2010
@@ -18,7 +18,7 @@
eval
{
require Class::XSAccessor;
-
+
unless($Class::XSAccessor::VERSION >= 0.14)
{
die "Class::XSAccessor $Class::XSAccessor::VERSION is too old";
Modified: trunk/librose-object-perl/lib/Rose/Object/MixIn.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-object-perl/lib/Rose/Object/MixIn.pm?rev=52615&op=diff
==============================================================================
--- trunk/librose-object-perl/lib/Rose/Object/MixIn.pm (original)
+++ trunk/librose-object-perl/lib/Rose/Object/MixIn.pm Fri Feb 12 01:49:15 2010
@@ -98,7 +98,7 @@
foreach my $code (@$hooks)
{
my $error;
-
+
TRY:
{
local $@;
More information about the Pkg-perl-cvs-commits
mailing list