[svn:parrot] r48342 - branches/unshared_buffers/src/string

[darbelo at svn.parrot.org]

Author: darbelo
Date: Sat Aug  7 17:13:14 2010
New Revision: 48342
URL: https://trac.parrot.org/parrot/changeset/48342

Log:
Fix braino in chopn semantics.

Modified:
   branches/unshared_buffers/src/string/api.c

Modified: branches/unshared_buffers/src/string/api.c
==============================================================================
--- branches/unshared_buffers/src/string/api.c	Sat Aug  7 10:50:01 2010	(r48341)
+++ branches/unshared_buffers/src/string/api.c	Sat Aug  7 17:13:14 2010	(r48342)
@@ -1237,7 +1237,7 @@
         if (-n > s->strlen)
             return Parrot_str_clone(interp, s);
         else
-            return ENCODING_GET_CODEPOINTS(interp, s, -n, s->strlen + n);
+            return ENCODING_GET_CODEPOINTS(interp, s, 0, -n);
     }
     else {
         const INTVAL new_length = s->strlen - n;