Merge the opcode bodies for chop/chomp and schop/schomp.

1 files changed, 10 insertions, 0 deletions

diff --git a/mathoms.c b/mathoms.c
index 32f3215de5..c648833ca6 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -1123,6 +1123,16 @@ PP(pp_rv2hv)
     return Perl_pp_rv2av(aTHX);
 }
 
+PP(pp_schomp)
+{
+    return Perl_pp_chomp(aTHX);
+}
+
+PP(pp_chomp)
+{
+    return Perl_pp_chop(aTHX);
+}
+
 U8 *
 Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
 {