}
BEGIN { require './test.pl'; }
-plan tests => 237;
+plan tests => 254;
while (<DATA>) {
chomp;
like( $@, qr/Can't find an opnumber for/, $keyword );
}
else {
- is( "(".prototype("CORE::".$keyword).")", $proto, $keyword );
+ is(
+ "(".(prototype("CORE::".$keyword) // 'undef').")", $proto,
+ $keyword
+ );
}
}
# the keyword list :
__DATA__
+__FILE__ ()
+__LINE__ ()
+__PACKAGE__ ()
+__DATA__ undef
+__END__ undef
+__SUB__ ()
+AUTOLOAD undef
+BEGIN undef
+CORE unknown
+DESTROY undef
+END undef
+INIT undef
+CHECK undef
abs (_)
accept (**)
alarm (_)
-and ()
+and undef
atan2 ($$)
bind (*$)
binmode (*;$)
bless ($;$)
+break ()
caller (;$)
chdir (;$)
chmod (@)
chroot (_)
close (;*)
closedir (*)
-cmp unknown
+cmp undef
connect (*$)
continue ()
cos (_)
crypt ($$)
dbmclose (\%)
dbmopen (\%$$)
+default undef
defined undef
delete undef
die (@)
do undef
dump ()
-each (\[@%])
+each (+)
else undef
elsif undef
endgrent ()
endpwent ()
endservent ()
eof (;*)
-eq ($$)
+eq undef
eval undef
+evalbytes (_)
exec undef
exists undef
exit (;$)
exp (_)
+fc (_)
fcntl (*$$)
fileno (*)
flock (*$)
fork ()
format undef
formline ($@)
-ge ($$)
+ge undef
getc (;*)
getgrent ()
getgrgid ($)
getppid ()
getpriority ($$)
getprotobyname ($)
-getprotobynumber ($)
+getprotobynumber ($;)
getprotoent ()
getpwent ()
getpwnam ($)
getsockname (*)
getsockopt (*$$)
given undef
-glob undef
+glob (_;)
gmtime (;$)
goto undef
grep undef
-gt ($$)
+gt undef
hex (_)
if undef
index ($$;$)
int (_)
ioctl (*$$)
join ($@)
-keys (\[@%])
+keys (+)
kill (@)
last undef
lc (_)
lcfirst (_)
-le ($$)
+le undef
length (_)
link ($$)
listen (*$)
local undef
localtime (;$)
-lock (\$)
+lock (\[$@%&*])
log (_)
-lstat (*)
-lt ($$)
+lstat (;*)
+lt undef
m undef
map undef
mkdir (_;$)
msgrcv ($$$$$)
msgsnd ($$$)
my undef
-ne ($$)
+ne undef
next undef
no undef
-not ($)
+not ($;)
oct (_)
open (*;$@)
opendir (*$)
-or ()
+or undef
ord (_)
our undef
pack ($@)
package undef
pipe (**)
-pop (;\@)
-pos undef
+pop (;+)
+pos (;\[$*])
print undef
printf undef
-prototype undef
-push (\@@)
+prototype ($)
+push (+@)
q undef
qq undef
qr undef
rmdir (_)
s undef
say undef
-scalar undef
+scalar ($)
seek (*$$)
seekdir (*$)
-select (;*)
+select undef
semctl ($$$$)
semget ($$$)
semop ($$)
setpwent ()
setservent ($)
setsockopt (*$$$)
-shift (;\@)
+shift (;+)
shmctl ($$$)
shmget ($$$)
shmread ($$$$)
socket (*$$$)
socketpair (**$$$)
sort undef
-splice (\@;$$@)
+splice (+;$$@)
split undef
sprintf ($@)
sqrt (_)
srand (;$)
-stat (*)
+stat (;*)
state undef
-study undef
+study (_)
sub undef
substr ($$;$$)
symlink ($$)
syswrite (*$;$$)
tell (;*)
telldir (*)
-tie undef
-tied undef
+tie (\[$@%*]$@)
+tied (\[$@%*])
time ()
times ()
tr undef
uc (_)
ucfirst (_)
umask (;$)
-undef undef
+undef (;\[$@%&*])
unless undef
unlink (@)
-unpack ($;$)
-unshift (\@@)
-untie undef
+unpack ($_)
+unshift (+@)
+untie (\[$@%*])
until undef
use undef
utime (@)
-values (\[@%])
+values (+)
vec ($$$)
wait ()
waitpid ($$)
when undef
while undef
write (;*)
-x unknown
-xor ($$)
+x undef
+xor undef
y undef