Change 12005 by jhi@alpha on 2001/09/12 13:14:59
Subject: [ID 20010912.007] substr reference core dump
From: [EMAIL PROTECTED]
Date: 12 Sep 2001 14:11:16 -0000
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/mg.c#197 edit
Differences ...
==== //depot/perl/mg.c#197 (text) ====
Index: perl/mg.c
--- perl/mg.c.~1~ Wed Sep 12 07:30:05 2001
+++ perl/mg.c Wed Sep 12 07:30:05 2001
@@ -1506,7 +1506,7 @@
sv_insert(lsv, lvoff, lvlen, tmps, len);
SvUTF8_on(lsv);
}
- else if (SvUTF8(lsv)) {
+ else if (lsv && SvUTF8(lsv)) {
sv_pos_u2b(lsv, &lvoff, &lvlen);
tmps = (char*)bytes_to_utf8((U8*)tmps, &len);
sv_insert(lsv, lvoff, lvlen, tmps, len);
End of Patch.
