X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl_keyword.pl;h=ab9559cc791241ec4f92cd08e77f078d46f2eb17;hb=b30ea4af1eb31dd77630f331817dfe421bf8b269;hp=5806728c3093ea1a0e9c066a04cbd994ae726a49;hpb=7208511238c86c8b53478311bf19a0e8d7a979f9;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl_keyword.pl b/perl_keyword.pl
index 5806728..ab9559c 100644
--- a/perl_keyword.pl
+++ b/perl_keyword.pl
@@ -9,8 +9,8 @@ my @pos = qw(__DATA__ __END__ AUTOLOAD BEGIN CHECK DESTROY default defined
 	    delete do END else eval elsif exists for format foreach given grep
 	    goto glob INIT if last local m my map next no our pos print printf
 	    package prototype q qr qq qw qx redo return require s scalar sort
-	    split study sub tr tie tied use undef until untie unless when while
-	    y);
+	    split state study sub tr tie tied use undef until untie unless when
+	    while y);
 
 my @neg = qw(__FILE__ __LINE__ __PACKAGE__ and abs alarm atan2 accept bless
 	    break bind binmode CORE cmp chr cos chop close chdir chomp chmod
@@ -45,6 +45,8 @@ my %feature_kw = (
 	say     => 'say',
 
 	err	=> 'err',
+
+	state	=> 'state',
 	);
 
 my %pos = map { ($_ => 1) } @pos;
@@ -65,7 +67,7 @@ print <<END;
  */
 
 I32
-Perl_keyword (pTHX_ const char *name, I32 len)
+Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords)
 {
     dVAR;
 $switch
@@ -88,7 +90,7 @@ END
   elsif (my $feature = $feature_kw{$k}) {
     $feature =~ s/([\\"])/\\$1/g;
     return <<END;
-return (FEATURE_IS_ENABLED("$feature") ? ${sign}KEY_$k : 0);
+return (all_keywords || FEATURE_IS_ENABLED("$feature") ? ${sign}KEY_$k : 0);
 END
   }
   return <<END;