2 use warnings FATAL => 'all';
5 use t::common qw( new_fh );
9 my ($fh, $filename) = new_fh();
12 my $db = DBM::Deep->new( file => $filename, fh => $fh, );
13 $db->{34808} = "BVA/DIVISO";
14 $db->{34887} = "PRIMARYVEN";
15 }, '$, causes no hiccoughs or 150MB files';
18 ($fh, $filename) = new_fh();
21 my $db = DBM::Deep->new( file => $filename, fh => $fh, );
25 = "counterpneumonoultramicroscopicsilicovolcanoconiotically";
27 }, '$\ causes no problems';