X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mathoms.c;h=113aac003fdd662a468f2da7c7db546febbcd430;hb=a62746fa01f7841968350e8f568bbd10789c4213;hp=48b9a54ffdb83188214b4434a4b294599abf5551;hpb=f6a64177e53a495ba5859e86640c4725a876128e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/mathoms.c b/mathoms.c
index 48b9a54..113aac0 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -1000,6 +1000,41 @@ 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)
 {