DB_File/t/db-btree.t

727    my ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
734            $fetch_key eq $fk && $store_key eq $sk &&
741    $db->filter_fetch_key   (sub { $fetch_key = $_ }) ;
752    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
757    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
764                         (sub { $_ = uc $_ ; $fetch_key = $_ }) ;
772    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
777    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
782    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
793    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
797    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
801    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
811    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
815    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
819    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;