X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl_keyword.pl;h=9312f47c54912742a36fd0b77b120d99fcd49928;hb=6bc89f92370990b836308b02c6551b4e758e7401;hp=d0471f689140efadd4204c3f276bd27836faada5;hpb=0d863452f5cac86322a90184dc68dbf446006ed7;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl_keyword.pl b/perl_keyword.pl
index d0471f6..9312f47 100644
--- a/perl_keyword.pl
+++ b/perl_keyword.pl
@@ -43,6 +43,8 @@ my %feature_kw = (
 	break   => 'switch',
 
 	say     => 'say',
+
+	err	=> 'err',
 	);
 
 my %pos = map { ($_ => 1) } @pos;
@@ -65,6 +67,7 @@ print <<END;
 I32
 Perl_keyword (pTHX_ const char *name, I32 len)
 {
+    dVAR;
 $switch
 unknown:
   return 0;