This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: mro "PERFORMANCE CONSIDERATIONS" still true?
authorRick Delaney <rick@consumercontact.com>
Mon, 10 Sep 2007 10:45:41 +0000 (06:45 -0400)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 12 Sep 2007 08:07:21 +0000 (08:07 +0000)
Message-ID: <20070910144541.GI9260@bort.ca>

plus update Changes file for base.pm

p4raw-id: //depot/perl@31851

lib/base.pm
lib/base/Changes

index 76e235d..9649e8a 100644 (file)
@@ -2,7 +2,7 @@ package base;
 
 use strict 'vars';
 use vars qw($VERSION);
-$VERSION = '2.12';
+$VERSION = '2.13';
 
 # constant.pm is slow
 sub SUCCESS () { 1 }
@@ -69,6 +69,7 @@ sub import {
     my $fields_base;
 
     my $inheritor = caller(0);
+    my @isa_classes;
 
     foreach my $base (@_) {
         if ( $inheritor eq $base ) {
@@ -103,7 +104,7 @@ ERROR
             ${$base.'::VERSION'} = "-1, set by base.pm"
               unless defined ${$base.'::VERSION'};
         }
-        push @{"$inheritor\::ISA"}, $base;
+        push @isa_classes, $base;
 
         if ( has_fields($base) || has_attr($base) ) {
             # No multiple fields inheritance *suck*
@@ -115,6 +116,8 @@ ERROR
             }
         }
     }
+    # Save this until the end so it's all or nothing if the above loop croaks.
+    push @{"$inheritor\::ISA"}, @isa_classes;
 
     if( defined $fields_base ) {
         inherit_fields($inheritor, $fields_base);
index b86a7bd..7b1f611 100644 (file)
@@ -1,3 +1,6 @@
+2.13
+    - push all classes at once in @ISA
+
 2.12  Fri Jul  6 00:57:15 PDT 2007
     Test Features
     - Test that base.pm preserves $VERSION after real module loading.