X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mathoms.c;h=703918d5472edf0a33e1cb84625cc3853bcd9f88;hb=65e66c80cefadd5e860e8232c69fd1a11e6c5b92;hp=943220df1f9252efe06115f21fcc4b2498cfe244;hpb=c960fc3b3086016b5cf3008030dd5aa01b2db20d;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/mathoms.c b/mathoms.c
index 943220d..703918d 100644
--- 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.
@@ -1015,6 +1015,26 @@ 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)
 {