Perl_pp_gmtime => ['localtime'],
Perl_pp_semget => [qw(shmget msgget)],
Perl_pp_semctl => [qw(shmctl msgctl)],
- Perl_pp_shmwrite => ['shmread'],
Perl_pp_ghostent => [qw(ghbyname ghbyaddr)],
Perl_pp_gnetent => [qw(gnbyname gnbyaddr)],
Perl_pp_gprotoent => [qw(gpbyname gpbynumber)],
Perl_pp_ftis => [qw(ftsize ftmtime ftatime ftctime)],
Perl_pp_chown => [qw(unlink chmod utime kill)],
Perl_pp_link => ['symlink'],
+ Perl_pp_ftrread => [qw(ftrwrite ftrexec fteread ftewrite
+ fteexec)],
+ Perl_pp_shmwrite => [qw(shmread msgsnd msgrcv semop)],
+ Perl_pp_send => ['syswrite'],
+ Perl_pp_defined => [qw(dor dorassign)],
+ Perl_pp_and => ['andassign'],
+ Perl_pp_or => ['orassign'],
+ Perl_pp_ucfirst => ['lcfirst'],
+ Perl_pp_sle => [qw(slt sgt sge)],
);
while (my ($func, $names) = splice @raw_alias, 0, 2) {
index index ck_index isT@ S S S?
rindex rindex ck_index isT@ S S S?
-sprintf sprintf ck_fun mfst@ S L
+sprintf sprintf ck_fun mst@ S L
formline formline ck_fun ms@ S L
ord ord ck_fun ifsTu% S?
chr chr ck_fun fsTu% S?