Removed _get_self() call in _copy_node

diff --git a/lib/DBM/Deep/Array.pm b/lib/DBM/Deep/Array.pm
index 586fab9..eb89315 100644 (file)
--- a/lib/DBM/Deep/Array.pm
+++ b/lib/DBM/Deep/Array.pm
@@ -389,7 +389,7 @@ sub SPLICE {
 #}
 
 sub _copy_node {
-    my $self = shift->_get_self;
+    my $self = shift;
     my ($db_temp) = @_;
 
     my $length = $self->length();

diff --git a/lib/DBM/Deep/Hash.pm b/lib/DBM/Deep/Hash.pm
index bb50c59..839217c 100644 (file)
--- a/lib/DBM/Deep/Hash.pm
+++ b/lib/DBM/Deep/Hash.pm
@@ -128,7 +128,7 @@ sub first_key { (shift)->FIRSTKEY(@_) }
 sub next_key { (shift)->NEXTKEY(@_) }
 
 sub _copy_node {
-    my $self = shift->_get_self;
+    my $self = shift;
     my ($db_temp) = @_;
 
     my $key = $self->first_key();