Changeset 7130

Timestamp:

02/25/08 19:43:21 (16 months ago)

Author:

chiba

Message:

lang/perl/DBIx-Class-Tree-NestedSet?:

• fixed misspelled method name (is_reaf => is_leaf)
  
• fixed attach_child & attach_sbling returned last node result
  (Thanks to Kevin Baker)
  

Location:

lang/perl/DBIx-Class-Tree-NestedSet/trunk

Files:

• Changes (modified) (1 diff)
• lib/DBIx/Class/Tree/NestedSet.pm (modified) (5 diffs)

lang/perl/DBIx-Class-Tree-NestedSet/trunk/Changes

@@ -1 +1 @@
 Revision history for Perl extension DBIx::Class::Tree::NestedSet
+
+0.03  Mon Feb 25 19:31:00 2008
+        - fixed misspelled method name (is_reaf => is_leaf)
+        - fixed attach_child & attach_sbling returned last node result
+          (Thanks to Kevin Baker)
 
 0.02  Fri Dec 21 06:34:20 2007

lang/perl/DBIx-Class-Tree-NestedSet/trunk/lib/DBIx/Class/Tree/NestedSet.pm

@@ -4 +4 @@
 use warnings;
 use 5.8.1;
-our $VERSION = '0.02';
+our $VERSION = '0.03';
 
 use base qw/ DBIx::Class /;
@@ -155 +155 @@
         if ($found) {
             my $children = $self->children;
-            my $self_parent = $self->parent;
             while (my $child = $children->next) {
                 $child->parent( $self_parent );
@@ -241 +240 @@
     my $return = 1;
     foreach my $child (@_) {
-        $return = $child->reparent( $self );
+        $return &= $child->reparent( $self );
     }
 
@@ -284 +283 @@
     my $return = 1;
     foreach my $node (@_) {
-        $return = $node->reparent( $self->parent );
+        $return &= $node->reparent( $self->parent );
     }
     return $return;
 }
 
-sub is_reaf {
+sub is_leaf {
     my $self = shift;
 
@@ -305 +304 @@
     my $self = shift;
 
-    return ( $self->is_reaf or $self->is_root ) ? 0 : 1;
+    return ( $self->is_leaf or $self->is_root ) ? 0 : 1;
 }