From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 23 Apr 2010 14:47:57 +0000 (+0200)
Subject: [perl #73776] "???? - please notify IZ"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=866f9d6c33c5b1ed70962d63bad47d37c13139dc;p=p5sagit%2Fp5-mst-13.2.git

[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.
---

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) {