r52506 - in /branches/upstream/librose-object-perl/current: 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/ xt/debugger.t

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Thu Feb 11 01:57:34 UTC 2010 

Author: jawnsy-guest
Date: Thu Feb 11 01:57:29 2010
New Revision: 52506

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52506
Log:
[svn-upgrade] Integrating new upstream version, librose-object-perl (0.858)

Added:
    branches/upstream/librose-object-perl/current/xt/
    branches/upstream/librose-object-perl/current/xt/debugger.t
Modified:
    branches/upstream/librose-object-perl/current/Changes
    branches/upstream/librose-object-perl/current/MANIFEST
    branches/upstream/librose-object-perl/current/META.yml
    branches/upstream/librose-object-perl/current/lib/Rose/Object.pm
    branches/upstream/librose-object-perl/current/lib/Rose/Object/MakeMethods.pm
    branches/upstream/librose-object-perl/current/lib/Rose/Object/MakeMethods/Generic.pm
    branches/upstream/librose-object-perl/current/lib/Rose/Object/MixIn.pm

Modified: branches/upstream/librose-object-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-object-perl/current/Changes?rev=52506&op=diff
==============================================================================
--- branches/upstream/librose-object-perl/current/Changes (original)
+++ branches/upstream/librose-object-perl/current/Changes Thu Feb 11 01:57:29 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: branches/upstream/librose-object-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-object-perl/current/MANIFEST?rev=52506&op=diff
==============================================================================
--- branches/upstream/librose-object-perl/current/MANIFEST (original)
+++ branches/upstream/librose-object-perl/current/MANIFEST Thu Feb 11 01:57:29 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: branches/upstream/librose-object-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-object-perl/current/META.yml?rev=52506&op=diff
==============================================================================
--- branches/upstream/librose-object-perl/current/META.yml (original)
+++ branches/upstream/librose-object-perl/current/META.yml Thu Feb 11 01:57:29 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: branches/upstream/librose-object-perl/current/lib/Rose/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-object-perl/current/lib/Rose/Object.pm?rev=52506&op=diff
==============================================================================
--- branches/upstream/librose-object-perl/current/lib/Rose/Object.pm (original)
+++ branches/upstream/librose-object-perl/current/lib/Rose/Object.pm Thu Feb 11 01:57:29 2010
@@ -2,7 +2,7 @@
 
 use strict;
 
-our $VERSION = '0.856';
+our $VERSION = '0.858';
 
 sub new
 {

Modified: branches/upstream/librose-object-perl/current/lib/Rose/Object/MakeMethods.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-object-perl/current/lib/Rose/Object/MakeMethods.pm?rev=52506&op=diff
==============================================================================
--- branches/upstream/librose-object-perl/current/lib/Rose/Object/MakeMethods.pm (original)
+++ branches/upstream/librose-object-perl/current/lib/Rose/Object/MakeMethods.pm Thu Feb 11 01:57:29 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: branches/upstream/librose-object-perl/current/lib/Rose/Object/MakeMethods/Generic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-object-perl/current/lib/Rose/Object/MakeMethods/Generic.pm?rev=52506&op=diff
==============================================================================
--- branches/upstream/librose-object-perl/current/lib/Rose/Object/MakeMethods/Generic.pm (original)
+++ branches/upstream/librose-object-perl/current/lib/Rose/Object/MakeMethods/Generic.pm Thu Feb 11 01:57:29 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: branches/upstream/librose-object-perl/current/lib/Rose/Object/MixIn.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-object-perl/current/lib/Rose/Object/MixIn.pm?rev=52506&op=diff
==============================================================================
--- branches/upstream/librose-object-perl/current/lib/Rose/Object/MixIn.pm (original)
+++ branches/upstream/librose-object-perl/current/lib/Rose/Object/MixIn.pm Thu Feb 11 01:57:29 2010
@@ -98,7 +98,7 @@
       foreach my $code (@$hooks)
       {
         my $error;
-        
+
         TRY:
         {
           local $@;

Added: branches/upstream/librose-object-perl/current/xt/debugger.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-object-perl/current/xt/debugger.t?rev=52506&op=file
==============================================================================
--- branches/upstream/librose-object-perl/current/xt/debugger.t (added)
+++ branches/upstream/librose-object-perl/current/xt/debugger.t Thu Feb 11 01:57:29 2010
@@ -1,0 +1,42 @@
+#!/usr/bin/perl -d
+
+use Test::More tests => 1;
+
+# XXX: Code taken from namespace::clean's t/07--debugger.t
+BEGIN
+{
+  no warnings 'once';
+
+  # Apparently we can't just skip_all with -d, because the 
+  # debugger breaks at Test::Testers END block.
+  if($] <= 5.010000)
+  {
+    pass;
+    done_testing;
+  }
+  else
+  {
+    push(@DB::typeahead, 'c');
+  }
+
+  push(@DB::typeahead, 'q');
+
+  open(my $out, '>', \my $out_buf) or warn "Could not open new out handle - $!";
+  $DB::OUT = $out;
+  open(my $in, '<', \my $in_buf)  or warn "Could not open new in handle - $!";
+  $DB::IN = $in;
+}
+
+use FindBin qw($Bin);
+
+use lib "$Bin/lib";
+
+require Person1;
+
+delete $INC{'Person1.pm'};
+
+eval { require Person1 };
+
+ok(!$@, 'double load');
+
+done_testing;

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