http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2001-05/msg01660.html broke 'b' and 'a' indicators on the line numbers (old values for were sticking). Enjoy, Ilya --- ./lib/perl5db.pl-buggy Mon Jun 18 15:38:08 2001 +++ ./lib/perl5db.pl Sun Jul 1 18:15:28 2001 @@ -889,6 +889,7 @@ EOP $i = $end; } else { for (; $i <= $end; $i++) { + my ($stop,$action); ($stop,$action) = split(/\0/, $dbline{$i}) if $dbline{$i}; $arrow = ($i==$lineThread Next