The remaining special logic in pp_syswrite can be moved into pp_send,

which is actually already 50% syswrite.

p4raw-id: //depot/perl@25999

1 files changed, 5 insertions, 0 deletions

diff --git a/mathoms.c b/mathoms.c
index 0f82677fb2..9f37371868 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -985,6 +985,11 @@ PP(pp_msgrcv)
     return pp_shmwrite();
 }
 
+PP(pp_syswrite)
+{
+    return pp_send();
+}
+
 U8 *
 Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
 {