Define PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION earlier in perl.h

[p5sagit/p5-mst-13.2.git] / mathoms.c

diff --git a/mathoms.c b/mathoms.c
index 9f37371..113aac0 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -990,6 +990,51 @@ PP(pp_syswrite)
     return pp_send();
 }
 
+PP(pp_semop)
+{
+    return pp_shmwrite();
+}
+
+PP(pp_dor)
+{
+    return pp_defined();
+}
+
+PP(pp_andassign)
+{
+    return pp_and();
+}
+
+PP(pp_orassign)
+{
+    return pp_or();
+}
+
+PP(pp_dorassign)
+{
+    return pp_defined();
+} 
+
+PP(pp_lcfirst)
+{
+    return pp_ucfirst();
+}
+
+PP(pp_slt)
+{
+    return pp_sle();
+}
+
+PP(pp_sgt)
+{
+    return pp_sle();
+}
+
+PP(pp_sge)
+{
+    return pp_sle();
+}
+
 U8 *
 Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
 {