1 files changed, 2 insertions, 0 deletions
diff --git a/opcode.pl b/opcode.pl
index 27cf87b539..27f1de9a8d 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -70,6 +70,8 @@ my @raw_alias = (
 		 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)],
 		);
 
 while (my ($func, $names) = splice @raw_alias, 0, 2) {