Change 29486 by [EMAIL PROTECTED] on 2006/12/08 21:09:57
No need to upgrade if all we're going to do is return.
Affected files ...
... //depot/perl/util.c#590 edit
Differences ...
==== //depot/perl/util.c#590 (text) ====
Index: perl/util.c
--- perl/util.c#589~29463~ 2006-12-04 14:50:09.000000000 -0800
+++ perl/util.c 2006-12-08 13:09:57.000000000 -0800
@@ -490,9 +490,9 @@
mg->mg_len++;
}
s = (U8*)SvPV_force_mutable(sv, len);
- SvUPGRADE(sv, SVt_PVBM);
if (len == 0) /* TAIL might be on a zero-length string. */
return;
+ SvUPGRADE(sv, SVt_PVBM);
if (len > 2) {
const unsigned char *sb;
const U8 mlen = (len>255) ? 255 : (U8)len;
End of Patch.
