The rarely used lcfirst and ucfirst share almost all their code.

Merge the two as pp_ucfirst.

p4raw-id: //depot/perl@26035

1 files changed, 5 insertions, 0 deletions

diff --git a/mathoms.c b/mathoms.c
index 943220df1f..c0fc740c0a 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -1015,6 +1015,11 @@ PP(pp_dorassign)
     return pp_defined();
 } 
 
+PP(pp_lcfirst)
+{
+    return pp_ucfirst();
+}
+
 U8 *
 Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
 {