Re: Stopping hanging commands (evals) within debugger

[BrowserUk]

Just wrap your string eval in a block eval in which you set a %SIG{ INT } = sub{ die; }; ie:

    eval { local $SIG{ INT } = sub{die}; eval $_code };

If you also want to be able to break out of long-running opcodes, you'd have to look at setting local $ENV{ PERL_SIGNALS } = 'unsafe';.

[LanX]

Excellent, testscript works fine! =)

$|=1;
$_code=' sleep 1, print for (1..100)';
 
eval { 
   local $SIG{ INT } = sub{die;}; 
   eval $_code 
};
 
print "after interrupt";
 
eval $_code; # again w/o wrapper

I'll post again when I got it integrated within the debugger!