Removed usage of Clone from the code, replacing it with a hand-rolled datawalk
[dbsrgits/DBM-Deep.git] / t / 22_internal_copy.t
index 9de69f4..f1a51a5 100644 (file)
@@ -13,7 +13,7 @@ my $db = DBM::Deep->new( $filename );
 ##
 # Create structure in $db
 ##
-$db->import(
+$db->import({
        hash1 => {
                subkey1 => "subvalue1",
                subkey2 => "subvalue2",
@@ -21,7 +21,7 @@ $db->import(
     hash2 => {
         subkey3 => 'subvalue3',
     },
-);
+});
 
 is( $db->{hash1}{subkey1}, 'subvalue1', "Value imported correctly" );
 is( $db->{hash1}{subkey2}, 'subvalue2', "Value imported correctly" );