Change 14390 by jhi@alpha on 2002/01/23 18:30:18
Unused (the only occurrence of USE_BYTES_DOWNGRADES) and
therefore quite probably also obsolete code.
Affected files ...
.... //depot/perl/sv.c#512 edit
Differences ...
==== //depot/perl/sv.c#512 (text) ====
Index: perl/sv.c
--- perl/sv.c.~1~ Wed Jan 23 11:45:06 2002
+++ perl/sv.c Wed Jan 23 11:45:06 2002
@@ -3372,28 +3372,6 @@
if (!utf8_to_bytes(s, &len)) {
if (fail_ok)
return FALSE;
-#ifdef USE_BYTES_DOWNGRADES
- else if (IN_BYTES) {
- U8 *d = s;
- U8 *e = (U8 *) SvEND(sv);
- int first = 1;
- while (s < e) {
- UV ch = utf8n_to_uvchr(s,(e-s),&len,0);
- if (first && ch > 255) {
- if (PL_op)
- Perl_warner(aTHX_ WARN_UTF8, "Wide character in byte
%s",
- OP_DESC(PL_op);
- else
- Perl_warner(aTHX_ WARN_UTF8, "Wide character in byte");
- first = 0;
- }
- *d++ = ch;
- s += len;
- }
- *d = '\0';
- len = (d - (U8 *) SvPVX(sv));
- }
-#endif
else {
if (PL_op)
Perl_croak(aTHX_ "Wide character in %s",
End of Patch.
