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 say scalar sort
- split state study sub tr tie tied use undef UNITCHECK until untie
+ split state study sub tr use undef UNITCHECK until
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
setservent setpriority setprotoent shift shmctl shmget shmread
shmwrite shutdown sin sleep socket socketpair sprintf splice sqrt
srand stat substr system symlink syscall sysopen sysread sysseek
- syswrite tell time times telldir truncate uc utime umask unpack
- unlink unshift ucfirst values vec warn wait write waitpid wantarray
+ syswrite tell tie tied time times telldir truncate uc utime
+ umask unpack unlink unshift untie ucfirst values vec warn wait
+ write waitpid wantarray
x xor);
my %feature_kw = (
say => 'say',
- err => 'err',
-
state => 'state',
);