Select Code to Download

sub DB::new_eval { local $DB::onetimeDump = 'dump'; &DB::old_eval(@_);
+ }
*DB::old_eval = \&DB::eval;
*DB::eval = \&DB::new_eval;

[tearought-lm|(none)]04:54 PM $ perl -de0

...
   9  10

  DB<2>

  DB<4> print "my father plays dominos\n"
my father plays dominos
0  1

  DB<5>