Patch to enable removal of children [rt.cpan.org #83606]

[toddr]

Migrated from rt.cpan.org#83606 (status was 'new')

Requestors:

• degatcpan@ntlworld.com

Attachments:

• new.patch

From degatcpan@ntlworld.com on 2013-02-24 23:59:14
:

Patch tested via ./Build test.
Removing children seems to work after applying this patch, but I am no 
expert on this module.

[toddr]

--- /home/dan/Desktop/MultiNode.pm	2010-02-19 16:57:46.000000000 +0000
+++ /usr/local/share/perl/5.14.2/Tree/MultiNode.pm	2013-02-22 19:54:17.000000000 +0000
@@ -1193,7 +1193,8 @@
 sub remove_child
 {
   my $self = shift;
-  my $pos  = shift || $self->{'curr_pos'};
+  my $pos  = shift;
+  $pos = defined $pos ? $pos : $self->{'curr_pos'};
 
   print __PACKAGE__, "::remove_child() pos is: $pos\n"
     if $Tree::MultiNode::debug;
@@ -1210,7 +1211,7 @@
   }
 
   my $node = splice(@{$children},$pos,1);
-
+  $self->{'curr_node'}->{'children'} = $children;
   return ($node->key,$node->value);
 }