diff options
author | Matthew Horsfall <wolfsage@gmail.com> | 2021-06-10 15:58:47 -0400 |
---|---|---|
committer | Matthew Horsfall <wolfsage@gmail.com> | 2021-06-14 08:51:16 -0400 |
commit | 846e32ebef2bd121948a426b6a6ca7d48e3a0a7a (patch) | |
tree | 1abe4841e76acfbdd97619be5ca2368f1979a4eb /lib/B/Deparse.t | |
parent | c58a04b5e969bf8a46bd194709138679b0510728 (diff) | |
download | perl-846e32ebef2bd121948a426b6a6ca7d48e3a0a7a.tar.gz |
B::Deparse: Handle try/catch when catch has an ENTER/LEAVE pair
Diffstat (limited to 'lib/B/Deparse.t')
-rw-r--r-- | lib/B/Deparse.t | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t index 24eb445041..fd4d63c779 100644 --- a/lib/B/Deparse.t +++ b/lib/B/Deparse.t @@ -3171,3 +3171,12 @@ try { catch($var) { SECOND(); } +#### +# CONTEXT use feature 'try'; no warnings 'experimental::try'; +try { + FIRST(); +} +catch($var) { + my $x; + SECOND(); +} |