Move ftsuid ftsgid ftsvtx into Perl_pp_ftrowned.

p4raw-id: //depot/perl@25962

1 files changed, 15 insertions, 0 deletions

diff --git a/mathoms.c b/mathoms.c
index bb7230abf7..e814a80f89 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -906,6 +906,21 @@ PP(pp_ftpipe)
     return pp_ftrowned();
 }
 
+PP(pp_ftsuid)
+{
+    return pp_ftrowned();
+}
+
+PP(pp_ftsgid)
+{
+    return pp_ftrowned();
+}
+
+PP(pp_ftsvtx)
+{
+    return pp_ftrowned();
+}
+
 U8 *
 Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
 {