diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-04-23 16:47:57 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-04-23 16:47:57 +0200 |
| commit | 866f9d6c33c5b1ed70962d63bad47d37c13139dc (patch) | |
| tree | 262bdf944db3fa8176833520fe226d073eb0cb86 /dump.c | |
| parent | 705c800cbe8195e3d1d754695fccdb60a9e4d7d2 (diff) | |
| download | perl-866f9d6c33c5b1ed70962d63bad47d37c13139dc.tar.gz | |
[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.
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -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) { |