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