Committed fix for RT#35140
[dbsrgits/DBM-Deep.git] / t / 18_export.t
index 9cca868..1ff8051 100644 (file)
@@ -27,13 +27,14 @@ my %struct = (
 my ($fh, $filename) = new_fh();
 my $db = DBM::Deep->new({
     file      => $filename,
+    fh => $fh,
     autobless => 1,
 });
 
 ##
 # Create structure in DB
 ##
-$db->import( %struct );
+$db->import( \%struct );
 
 ##
 # Export entire thing