pp_semop can fit within Perl_pp_shmwrite().

p4raw-id: //depot/perl@26000

1 files changed, 3 insertions, 13 deletions

diff --git a/pp_sys.c b/pp_sys.c
index b31bc349af..c6eb020312 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -4451,6 +4451,9 @@ PP(pp_shmwrite)
     case OP_MSGRCV:
 	value = (I32)(do_msgrcv(MARK, SP) >= 0);
 	break;
+    case OP_SEMOP:
+	value = (I32)(do_semop(MARK, SP) >= 0);
+	break;
     default:
 	value = (I32)(do_shmio(op_type, MARK, SP) >= 0);
 	break;
@@ -4501,19 +4504,6 @@ PP(pp_semctl)
 #endif
 }
 
-PP(pp_semop)
-{
-#if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
-    dSP; dMARK; dTARGET;
-    I32 value = (I32)(do_semop(MARK, SP) >= 0);
-    SP = MARK;
-    PUSHi(value);
-    RETURN;
-#else
-    return pp_semget();
-#endif
-}
-
 /* Get system info. */
 
 PP(pp_ghostent)