diff options
author | E. Choroba <choroba@matfyz.cz> | 2020-06-26 21:19:24 +0200 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-07-30 15:52:38 -0600 |
commit | b248789b64d6bd277c52bfe608ed3192023af1bd (patch) | |
tree | 32bcd8ae5a3d7b5fae54ab7988efdefd6316fbf9 /lib/perl5db | |
parent | 67b5e820b9462a832786fae47188b044c8fd42fb (diff) | |
download | perl-b248789b64d6bd277c52bfe608ed3192023af1bd.tar.gz |
After running an action in the debugger, turn it off
When running with "c", there was no problem, but when running with "n"
or "s", once the action was executed, it kept executing on the
following lines, which wasn't expected. Clearing $action here prevents
this unwanted behaviour.
Diffstat (limited to 'lib/perl5db')
-rw-r--r-- | lib/perl5db/t/test-a-statement-3 | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/perl5db/t/test-a-statement-3 b/lib/perl5db/t/test-a-statement-3 new file mode 100644 index 0000000000..b188c1c5c5 --- /dev/null +++ b/lib/perl5db/t/test-a-statement-3 @@ -0,0 +1,6 @@ +use strict; use warnings; + +for my $x (1 .. 2) { + my $y = $x + 1; + my $x = $x - 1; +} |