Standardized test incantations

[dbsrgits/DBM-Deep.git] / t / 52_memory_leak.t

diff --git a/t/52_memory_leak.t b/t/52_memory_leak.t
index b24401b..2f5a593 100644 (file)
--- a/t/52_memory_leak.t
+++ b/t/52_memory_leak.t
@@ -14,7 +14,7 @@ plan skip_all => "Need to figure out what platforms this runs on";
 use t::common qw( new_fh );
 
 my ($fh, $filename) = new_fh();
-my $db = DBM::Deep->new( file => $filename, fh => $fh, );
+my $db = DBM::Deep->new( $filename );
 
 my $todo  = 1000;
 my $allow = $todo*0.02; # NOTE: a 2% fail rate is hardly a failure