Merge pp_slt, pp_sgt and pp_sge into pp_sle. (The most commonly used

of the 4. Not that any are that popular.)

p4raw-id: //depot/perl@26039

1 files changed, 15 insertions, 0 deletions

diff --git a/mathoms.c b/mathoms.c
index c0fc740c0a..113aac003f 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -1020,6 +1020,21 @@ 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)
 {