Change 27537 by [EMAIL PROTECTED] on 2006/03/17 20:39:47
Remove a duplicated conditional test by putting everything for the
not readonly case inside one block.
Affected files ...
... //depot/perl/sv.c#1189 edit
Differences ...
==== //depot/perl/sv.c#1189 (text) ====
Index: perl/sv.c
--- perl/sv.c#1188~27536~ 2006-03-17 11:37:41.000000000 -0800
+++ perl/sv.c 2006-03-17 12:39:47.000000000 -0800
@@ -5297,13 +5297,14 @@
}
else {
ulen = Perl_utf8_length(aTHX_ s, s + len);
- if (!mg && !SvREADONLY(sv)) {
- sv_magic(sv, 0, PERL_MAGIC_utf8, 0, 0);
- mg = mg_find(sv, PERL_MAGIC_utf8);
- assert(mg);
- }
- if (mg)
+ if (!SvREADONLY(sv)) {
+ if (!mg) {
+ sv_magic(sv, 0, PERL_MAGIC_utf8, 0, 0);
+ mg = mg_find(sv, PERL_MAGIC_utf8);
+ assert(mg);
+ }
mg->mg_len = ulen;
+ }
}
return ulen;
}
End of Patch.
