diff options
| author | Ricardo Signes <rjbs@semiotic.systems> | 2021-06-06 16:17:53 -0400 |
|---|---|---|
| committer | Ricardo Signes <rjbs@semiotic.systems> | 2021-07-25 15:37:14 -0400 |
| commit | 81cfb012ab267ccb794ad2e0f4f1529768f1533d (patch) | |
| tree | 8c09d4e8b4fa828d15339574eb48e1f1526957c9 /lib | |
| parent | 6fee8938be94005a9d23ee895045877d49e53932 (diff) | |
| download | perl-81cfb012ab267ccb794ad2e0f4f1529768f1533d.tar.gz | |
B::Deparse tests: turn on "switch" to test break() behavior
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/B/Deparse-core.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/B/Deparse-core.t b/lib/B/Deparse-core.t index 9d891a7507..ae2a800682 100644 --- a/lib/B/Deparse-core.t +++ b/lib/B/Deparse-core.t @@ -87,6 +87,7 @@ sub testit { no strict 'vars'; $code = "sub { state sub $keyword; ${vars}() = $expr }"; $code = "use feature 'isa';\n$code" if $keyword eq "isa"; + $code = "use feature 'switch';\n$code" if $keyword eq "break"; $code_ref = eval $code or die "$@ in $expr"; } else { @@ -96,6 +97,7 @@ sub testit { import subs $keyword; $code = "no strict 'vars'; sub { ${vars}() = $expr }"; $code = "use feature 'isa';\n$code" if $keyword eq "isa"; + $code = "use feature 'switch';\n$code" if $keyword eq "break"; $code_ref = eval $code or die "$@ in $expr"; } |