ftrwrite, ftrexec, fteread, ftewrite and fteexec can all be merged

with Perl_pp_ftrread().

p4raw-id: //depot/perl@25986

1 files changed, 25 insertions, 0 deletions

diff --git a/mathoms.c b/mathoms.c
index 2fcf5f561e..9ec80e0fbf 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -946,6 +946,31 @@ PP(pp_symlink)
     return pp_link();
 }
 
+PP(pp_ftrwrite)
+{
+    return pp_ftrread();
+}
+
+PP(pp_ftrexec)
+{
+    return pp_ftrread();
+}
+
+PP(pp_fteread)
+{
+    return pp_ftrread();
+}
+
+PP(pp_ftewrite)
+{
+    return pp_ftrread();
+}
+
+PP(pp_fteexec)
+{
+    return pp_ftrread();
+}
+
 U8 *
 Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
 {