Refactor pp_chomp to process arguments in the same order as pp_chop.

Previously list chomp worked from last to first, whilst list chop worked from
first to last.

1 files changed, 5 insertions, 4 deletions

diff --git a/pp.c b/pp.c
index 112f4f5f95..78b03eaeaf 100644
--- a/pp.c
+++ b/pp.c
@@ -818,12 +818,13 @@ PP(pp_schomp)
 
 PP(pp_chomp)
 {
-    dVAR; dSP; dMARK; dTARGET;
+    dVAR; dSP; dMARK; dTARGET; dORIGMARK;
     register I32 count = 0;
 
-    while (SP > MARK)
-	count += do_chomp(POPs);
-    XPUSHi(count);
+    while (MARK < SP)
+	count += do_chomp(*++MARK);
+    SP = ORIGMARK;
+    XPUSHTARG;
     RETURN;
 }