[PATCH] string_transcode

[Peter Gibbs]

I suspect that the length of the output buffer for string_transcode should
be based on the output encoding, not on the input encoding.

Peter Gibbs
EmKel Systems

Index: string.c
===================================================================
RCS file: /home/perlcvs/parrot/string.c,v
retrieving revision 1.33
diff -c -r1.33 string.c
*** string.c    31 Dec 2001 17:23:03 -0000      1.33
--- string.c    1 Jan 2002 10:11:56 -0000
***************
*** 154,160 ****
          return string_copy(interpreter, src);
      }

!     dest = string_make(interpreter, NULL,
src->strlen*src->encoding->max_bytes
,
                         encoding, 0, type);

      if (src->type != dest->type) {
--- 154,160 ----
          return string_copy(interpreter, src);
      }

!     dest = string_make(interpreter, NULL, src->strlen*encoding->max_bytes,
                         encoding, 0, type);

      if (src->type != dest->type) {