In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/866f9d6c33c5b1ed70962d63bad47d37c13139dc?hp=705c800cbe8195e3d1d754695fccdb60a9e4d7d2>
- Log ----------------------------------------------------------------- commit 866f9d6c33c5b1ed70962d63bad47d37c13139dc Author: Father Chrysostomos <[email protected]> Date: Fri Apr 23 16:47:57 2010 +0200 [perl #73776] "???? - please notify IZ" Change 27536 (45f4726) started using -1 as a special len value for utf8 magic. I believe this marker indicates that the utf8 length cache needs to be calculated, in which case dump.c can ignore this case. ----------------------------------------------------------------------- Summary of changes: dump.c | 7 ++++++- 1 files changed, 6 insertions(+), 1 deletions(-) diff --git a/dump.c b/dump.c index d1fa26e..83ced6a 100644 --- a/dump.c +++ b/dump.c @@ -1365,8 +1365,13 @@ Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, const MAGIC *mg, I32 nest, I32 maxnest, dumpops, pvlim); /* MG is already +1 */ continue; } + else if (mg->mg_len == -1 && mg->mg_type == PERL_MAGIC_utf8); else - PerlIO_puts(file, " ???? - please notify IZ"); + PerlIO_puts( + file, + " ???? - " __FILE__ + " does not know how to handle this MG_LEN" + ); PerlIO_putc(file, '\n'); } if (mg->mg_type == PERL_MAGIC_utf8) { -- Perl5 Master Repository
