Select Code to Download

main::(perldb_demo.pl:4):       my @a = (1..10);
  DB<1> n
...
main::(perldb_demo.pl:6):       if (0 < scalar grep { $_ == 9 } @a) {
  DB<1> 
main::(perldb_demo.pl:7):               print "found\n";

main::(perldb_demo.pl:4):       my @a = (1..10);
  DB<1> n
main::(perldb_demo.pl:6):       if (0 < scalar grep { $_ == 9 } @a) {
  DB<1> 
main::(perldb_demo.pl:7):               print "found\n";

--- perl5db.pl.org    2007-12-18 10:47:07.000000000 +0100
+++ perl5db.pl    2008-09-01 23:02:16.718750000 +0200
...
                     # Save for empty command (repeat last).
                     $laststep = $cmd;
                     last CMD;