sv_clear can manipulate the arena array directly too.

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

diff --git a/mathoms.c b/mathoms.c
index ce5f182..703918d 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -29,7 +29,7 @@
 #define PERL_IN_MATHOMS_C
 #include "perl.h"
 
-void Perl_mathoms() {}
+void Perl_mathoms(void) {}
 
 /* ref() is now a macro using Perl_doref;
  * this version provided for binary compatibility only.
@@ -997,7 +997,42 @@ PP(pp_semop)
 
 PP(pp_dor)
 {
-    return 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 *