r11686@rob-kinyons-powerbook58: rob | 2006-04-29 23:23:17 -0400

 Fixed export() so that it works with crossreferences

diff --git a/lib/DBM/Deep.pm b/lib/DBM/Deep.pm
index 005d06a..49e1444 100644 (file)
--- a/lib/DBM/Deep.pm
+++ b/lib/DBM/Deep.pm
@@ -210,7 +210,7 @@ sub export {
         my $c = Scalar::Util::blessed(
             $self->{parent}->get($self->{parent_key})
         );
-        if ( $c ) {
+        if ( $c && !$c->isa( 'DBM::Deep' ) ) {
             bless $temp, $c;
         }
     }

diff --git a/t/19_crossref.t b/t/19_crossref.t
index aedf5c5..bd432c8 100644 (file)
--- a/t/19_crossref.t
+++ b/t/19_crossref.t
@@ -26,7 +26,6 @@ my $db2 = DBM::Deep->new( $filename2 );
     );
     is( $db->{hash1}{subkey1}, 'subvalue1', "Value imported correctly" );
     is( $db->{hash1}{subkey2}, 'subvalue2', "Value imported correctly" );
-
     ##
     # Cross-ref nested hash accross DB objects
     ##