sub dbbreak {
   $DB::single = $DB::my_single_breaks_allowed;
}