Change 11655 by jhi@alpha on 2001/08/12 23:05:14
Unnecessary downgrades.
Affected files ...
... //depot/perl/doop.c#113 edit
Differences ...
==== //depot/perl/doop.c#113 (text) ====
Index: perl/doop.c
--- perl/doop.c.~1~ Sun Aug 12 17:15:05 2001
+++ perl/doop.c Sun Aug 12 17:15:05 2001
@@ -386,9 +386,6 @@
}
SvSETMAGIC(sv);
SvUTF8_on(sv);
- /* Downgrading just 'cos it will is suspect - NI-S */
- if (!isutf8 && !(PL_hints & HINT_UTF8))
- sv_utf8_downgrade(sv, TRUE);
return matches;
}
@@ -590,8 +587,6 @@
SvCUR_set(sv, d - dstart);
}
SvUTF8_on(sv);
- if (!isutf8 && !(PL_hints & HINT_UTF8))
- sv_utf8_downgrade(sv, TRUE);
SvSETMAGIC(sv);
return matches;
End of Patch.
