http://www.perlmonks.org?node_id=509389


in reply to Re: Neat Debugger tricks
in thread Neat Debugger tricks

I understand what you are trying to do...identify a bug, modify the code, and continue debugging with the modified code. That would be very nice.

I think I can point out that you could at least change it for this instance and continue debugging. For example, usin g your code:

# ... 107 sub foo { 108 my $x; 109 $x = 43; 110 => die "invalid x!" unless $x == 42; 111 print "Yay!" 112 # ...

At this point you could set the value of $x before the unless expression is evaluated:

DB<6> $x = 43;

Of course, you would have to remember to make the same modification in code...

As an interesting alternative, you could redefine the function on the fly... This wouldn't work in your example because it dies on a fail case. However after a first run through the function, cut the function from an editor and paste it into the debugger with the change you desire. Subsequent runs restarts through the debugger would have the modified version of the function.

For example:

use strict; foo(); foo(); sub foo { my $x; $x = 43; if($x==42){print "DANGER Will Robinson!\n" +}else{print "Yay!\n";}}

Then I run this in the debugger... After the first execution of foo Cut and paste the modified subroutine in to the debugger and execute it. This redefines the foo function.

main::(perldebugexample2.pl:3): foo(); DB<1> n Yay! main::(perldebugexample2.pl:4): foo(); <$x = 42; if($x==42){print "DANGER Will Robinson!\n"}else{print "Yay!\ +n";}} DB<2> n DANGER Will Robinson!

I'm not sure if this is practicle, but it is interesting... :)

Hazah! I'm Employed!