DB_File/t/db-hash.t

511    my ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
523        print "# Store Key   : expected '$sk' got '$store_key'\n"
524            if $store_key ne $sk ;
531            $fetch_key   eq $fk && $store_key   eq $sk &&
539    $db->filter_store_key   (sub { $store_key = $_ }) ;
549    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
554    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
567    			(sub { $_ = lc $_ ; $store_key = $_ }) ;
573    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
578    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
583    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
598    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
602    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
606    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
621    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
625    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
629    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;