Merge ftzero ftsock ftchr ftblk ftfile ftdir ftpipe into

Perl_pp_ftrowned

p4raw-id: //depot/perl@25961

1 files changed, 35 insertions, 0 deletions

diff --git a/mathoms.c b/mathoms.c
index 2ad9de58a5..bb7230abf7 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -871,6 +871,41 @@ PP(pp_ftctime)
     return pp_ftis();
 }
 
+PP(pp_ftzero)
+{
+    return pp_ftrowned();
+}
+
+PP(pp_ftsock)
+{
+    return pp_ftrowned();
+}
+
+PP(pp_ftchr)
+{
+    return pp_ftrowned();
+}
+
+PP(pp_ftblk)
+{
+    return pp_ftrowned();
+}
+
+PP(pp_ftfile)
+{
+    return pp_ftrowned();
+}
+
+PP(pp_ftdir)
+{
+    return pp_ftrowned();
+}
+
+PP(pp_ftpipe)
+{
+    return pp_ftrowned();
+}
+
 U8 *
 Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
 {