This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Deparse CORE::break
authorFather Chrysostomos <sprout@cpan.org>
Fri, 17 Jun 2011 20:32:29 +0000 (13:32 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 17 Jun 2011 20:32:59 +0000 (13:32 -0700)
This is something 80e3f4adf22 missed.

dist/B-Deparse/Deparse.pm
dist/B-Deparse/t/deparse.t
regen/keywords.pl

index b37865e..8c89ea3 100644 (file)
@@ -1532,6 +1532,7 @@ my %feature_keywords = (
     given   => 'switch',
     when    => 'switch',
     default => 'switch',
+    break   => 'switch',
 );
 
 sub keyword {
index 6864dae..18ab953 100644 (file)
@@ -752,6 +752,6 @@ CORE::given ($x) {
         continue;
     }
     CORE::default {
-        die;
+        CORE::break;
     }
 }
index 5f36956..b286050 100755 (executable)
@@ -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',