r11666 - in /branches/upstream/libclass-prototyped-perl/current: Changes META.yml Makefile.PL README lib/Class/Prototyped.pm

tincho-guest at users.alioth.debian.org tincho-guest at users.alioth.debian.org
Wed Dec 26 00:48:16 UTC 2007


Author: tincho-guest
Date: Wed Dec 26 00:48:16 2007
New Revision: 11666

URL: http://svn.debian.org/wsvn/?sc=1&rev=11666
Log:
[svn-upgrade] Integrating new upstream version, libclass-prototyped-perl (1.11)

Modified:
    branches/upstream/libclass-prototyped-perl/current/Changes
    branches/upstream/libclass-prototyped-perl/current/META.yml
    branches/upstream/libclass-prototyped-perl/current/Makefile.PL
    branches/upstream/libclass-prototyped-perl/current/README
    branches/upstream/libclass-prototyped-perl/current/lib/Class/Prototyped.pm

Modified: branches/upstream/libclass-prototyped-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libclass-prototyped-perl/current/Changes?rev=11666&op=diff
==============================================================================
--- branches/upstream/libclass-prototyped-perl/current/Changes (original)
+++ branches/upstream/libclass-prototyped-perl/current/Changes Wed Dec 26 00:48:16 2007
@@ -1,4 +1,9 @@
 Revision history for Perl extension Class::Prototyped
+
+1.11  Tue Dec 18 2007
+ - Fixed error in synopsis (C::P->new is correct, C::P::new isn't).  Thanks
+   to Matthew Browning.
+ - Added @$isa=@$isa changes to workaround @ISA issues in 5.10.0.
 
 1.10  Tue Mar 15 2005
  - Merlyn strongly suggested that I unify the behavior of new() for named

Modified: branches/upstream/libclass-prototyped-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libclass-prototyped-perl/current/META.yml?rev=11666&op=diff
==============================================================================
--- branches/upstream/libclass-prototyped-perl/current/META.yml (original)
+++ branches/upstream/libclass-prototyped-perl/current/META.yml Wed Dec 26 00:48:16 2007
@@ -1,35 +1,31 @@
---- #YAML:1.0
+---
 name: Class-Prototyped
-version: 1.10
+version: 1.11
 author:
-  - ! >-
-    Written by Ned Konz, perl at bike-nomad.com and Toby Ovod-Everett,
-    toby at ovod-everett.org. 5.005_03 porting by chromatic.
+  - 'Written by Ned Konz, perl at bike-nomad.com and Toby Ovod-Everett, toby at ovod-everett.org. 5.005_03 porting by chromatic.'
 abstract: Fast prototype-based OO programming in Perl
 license: perl
+resources:
+  license: http://dev.perl.org/licenses/
 provides:
   Class::Prototyped:
     file: lib/Class/Prototyped.pm
-    version: 1.10
+    version: 1.11
   Class::Prototyped::Mirror:
-    file: lib/Class/Prototyped.pm
-    version: 1.10
+    file: lib/Class/Prototyped/Graph.pm
   Class::Prototyped::Mirror::Normal:
     file: lib/Class/Prototyped.pm
-    version: 1.10
   Class::Prototyped::Mirror::PROFILE:
     file: lib/Class/Prototyped.pm
-    version: 1.10
   Class::Prototyped::Mirror::SUPER:
     file: lib/Class/Prototyped.pm
-    version: 1.10
   Class::Prototyped::Tied:
     file: lib/Class/Prototyped.pm
-    version: 1.10
   Class::Prototyped::Tied::AutoVivify:
     file: lib/Class/Prototyped.pm
-    version: 1.10
   Class::Prototyped::Tied::Default:
     file: lib/Class/Prototyped.pm
-    version: 1.10
-generated_by: Module::Build version 0.24
+generated_by: Module::Build version 0.2808
+meta-spec:
+  url: http://module-build.sourceforge.net/META-spec-v1.2.html
+  version: 1.2

Modified: branches/upstream/libclass-prototyped-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libclass-prototyped-perl/current/Makefile.PL?rev=11666&op=diff
==============================================================================
--- branches/upstream/libclass-prototyped-perl/current/Makefile.PL (original)
+++ branches/upstream/libclass-prototyped-perl/current/Makefile.PL Wed Dec 26 00:48:16 2007
@@ -5,6 +5,7 @@
           'PL_FILES' => {},
           'INSTALLDIRS' => 'site',
           'NAME' => 'Class::Prototyped',
+          'EXE_FILES' => [],
           'VERSION_FROM' => 'lib/Class/Prototyped.pm',
           'PREREQ_PM' => {}
         )

Modified: branches/upstream/libclass-prototyped-perl/current/README
URL: http://svn.debian.org/wsvn/branches/upstream/libclass-prototyped-perl/current/README?rev=11666&op=diff
==============================================================================
--- branches/upstream/libclass-prototyped-perl/current/README (original)
+++ branches/upstream/libclass-prototyped-perl/current/README Wed Dec 26 00:48:16 2007
@@ -18,7 +18,7 @@
         $p->field1('something new');
         print $p->field1;
 
-        my $p2 = Class::Prototyped::new(
+        my $p2 = Class::Prototyped->new(
           'parent*' => $p,
           field2    => 234,
           sub2      => sub { print "this is sub2 in p2" }

Modified: branches/upstream/libclass-prototyped-perl/current/lib/Class/Prototyped.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libclass-prototyped-perl/current/lib/Class/Prototyped.pm?rev=11666&op=diff
==============================================================================
--- branches/upstream/libclass-prototyped-perl/current/lib/Class/Prototyped.pm (original)
+++ branches/upstream/libclass-prototyped-perl/current/lib/Class/Prototyped.pm Wed Dec 26 00:48:16 2007
@@ -24,7 +24,7 @@
 use strict;
 use Carp();
 
-$Class::Prototyped::VERSION = '1.10';
+$Class::Prototyped::VERSION = '1.11';
 
 sub import {
 	while (my $symbol = shift) {
@@ -208,6 +208,7 @@
 
 		# this is required to re-cache @ISA
 		delete ${"$package\::"}{'::ISA::CACHE::'};
+		@$isa=@$isa;
 
 		my $parent_DESTROY;
 		my (@isa_queue) = @{"$package\::ISA"};
@@ -677,6 +678,7 @@
 		push (@$isa, 'Class::Prototyped');
 		no strict 'refs';
 		delete ${"$package\::"}{'::ISA::CACHE::'};    # re-cache @ISA
+		@$isa=@$isa;
 	}
 
 	if (@{$parentOrder}) {
@@ -1120,6 +1122,7 @@
 				#Defends against ISA caching problems
 				no strict 'refs';
 				delete ${"$package\::"}{'::ISA::CACHE::'};
+				@$isa = @$isa;
 			}
 			splice(@$parentOrder, $splice_point, 0, $slotName);
 		}
@@ -1199,10 +1202,10 @@
 				splice(@$parentOrder, $index, 1);
 				splice(@$isa,         $index, 1);
 				{
-
 					#Defends against ISA caching problems
 					no strict 'refs';
 					delete ${"$package\::"}{'::ISA::CACHE::'};
+					@$isa=@$isa;
 				}
 			}
 			else {    # not found
@@ -1459,9 +1462,9 @@
 				@{$parentOrder}), 'Class::Prototype');
 
 	# this is required to re-cache @ISA
-#	my $package = $mirror->package;
 	no strict 'refs';
 	delete ${"$package\::"}{'::ISA::CACHE::'};
+	@$isa=@$isa;
 }
 
 sub wrap {
@@ -1618,7 +1621,7 @@
     $p->field1('something new');
     print $p->field1;
 
-    my $p2 = Class::Prototyped::new(
+    my $p2 = Class::Prototyped->new(
       'parent*' => $p,
       field2    => 234,
       sub2      => sub { print "this is sub2 in p2" }




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