X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/5458a98a294861b5056e599fe9e1cbe7c1f7b678..98af1e142028dcf116f32636ea54f4c3e9494651:/perl_keyword.pl

diff --git a/perl_keyword.pl b/perl_keyword.pl
index ab9559c..f53416c 100644
--- a/perl_keyword.pl
+++ b/perl_keyword.pl
@@ -8,14 +8,14 @@ use warnings;
 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 state study sub tr tie tied use undef until untie unless when
-	    while y);
+	    package prototype q qr qq qw qx redo return require s say scalar sort
+	    split state study sub tr tie tied use undef UNITCHECK 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
 	    chown crypt chroot caller connect closedir continue die dump
-	    dbmopen dbmclose eq eof err exp exit exec each endgrent endpwent
+	    dbmopen dbmclose eq eof exp exit exec each endgrent endpwent
 	    endnetent endhostent endservent endprotoent fork fcntl flock fileno
 	    formline getppid getpgrp getpwent getpwnam getpwuid getpeername
 	    getprotoent getpriority getprotobyname getprotobynumber
@@ -26,7 +26,7 @@ my @neg = qw(__FILE__ __LINE__ __PACKAGE__ and abs alarm atan2 accept bless
 	    length listen lcfirst localtime mkdir msgctl msgget msgrcv msgsnd
 	    ne not or ord oct open opendir pop push pack pipe quotemeta ref
 	    read rand recv rmdir reset rename rindex reverse readdir readlink
-	    readline readpipe rewinddir say seek send semop select semctl semget
+	    readline readpipe rewinddir seek send semop select semctl semget
 	    setpgrp seekdir setpwent setgrent setnetent setsockopt sethostent
 	    setservent setpriority setprotoent shift shmctl shmget shmread
 	    shmwrite shutdown sin sleep socket socketpair sprintf splice sqrt
@@ -44,8 +44,6 @@ my %feature_kw = (
 
 	say     => 'say',
 
-	err	=> 'err',
-
 	state	=> 'state',
 	);