diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-06-17 13:32:29 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-06-17 13:32:59 -0700 |
commit | e36901c88394e091cda94932873a7481b91aa0af (patch) | |
tree | 36978f5d3a1d17895324b29468588a706b9702db | |
parent | 4a904372e4d28940f0bcc3b8501925d58b3f0e68 (diff) | |
download | perl-e36901c88394e091cda94932873a7481b91aa0af.tar.gz |
Deparse CORE::break
This is something 80e3f4adf22 missed.
-rw-r--r-- | dist/B-Deparse/Deparse.pm | 1 | ||||
-rw-r--r-- | dist/B-Deparse/t/deparse.t | 2 | ||||
-rwxr-xr-x | regen/keywords.pl | 2 |
3 files changed, 4 insertions, 1 deletions
diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm index b37865e60e..8c89ea3f69 100644 --- a/dist/B-Deparse/Deparse.pm +++ b/dist/B-Deparse/Deparse.pm @@ -1532,6 +1532,7 @@ my %feature_keywords = ( given => 'switch', when => 'switch', default => 'switch', + break => 'switch', ); sub keyword { diff --git a/dist/B-Deparse/t/deparse.t b/dist/B-Deparse/t/deparse.t index 6864dae529..18ab953464 100644 --- a/dist/B-Deparse/t/deparse.t +++ b/dist/B-Deparse/t/deparse.t @@ -752,6 +752,6 @@ CORE::given ($x) { continue; } CORE::default { - die; + CORE::break; } } diff --git a/regen/keywords.pl b/regen/keywords.pl index 5f3695602c..b2860504d5 100755 --- a/regen/keywords.pl +++ b/regen/keywords.pl @@ -33,6 +33,8 @@ while (<DATA>) { push @{$by_strength{$strength}}, $keyword; } +# If this hash changes, make sure the equivalent hash in +# dist/B-Deparse/Deparse.pm is also updated. my %feature_kw = ( given => 'switch', when => 'switch', |