Change 18544 by jhi@kosh on 2003/01/22 03:45:01
Continuation of #18542.
Affected files ...
... //depot/perl/sv.c#615 edit
Differences ...
==== //depot/perl/sv.c#615 (text) ====
Index: perl/sv.c
--- perl/sv.c#614~18542~ Tue Jan 21 17:37:52 2003
+++ perl/sv.c Tue Jan 21 19:45:01 2003
@@ -5683,21 +5683,21 @@
MAGIC *mg = 0;
bool found = FALSE;
- if (S_utf8_mg_pos(sv, &mg, &cache, 0, offsetp, *offsetp, &s, start, send))
+ if (utf8_mg_pos(sv, &mg, &cache, 0, offsetp, *offsetp, &s, start, send))
found = TRUE;
if (!found && uoffset > 0) {
while (s < send && uoffset--)
s += UTF8SKIP(s);
if (s >= send)
s = send;
- if (S_utf8_mg_pos_init(sv, &mg, &cache, 0, offsetp, s, start))
+ if (utf8_mg_pos_init(sv, &mg, &cache, 0, offsetp, s, start))
boffset = cache[1];
*offsetp = s - start;
}
if (lenp) {
found = FALSE;
start = s;
- if (S_utf8_mg_pos(sv, &mg, &cache, 2, lenp, *lenp + *offsetp, &s,
start, send)) {
+ if (utf8_mg_pos(sv, &mg, &cache, 2, lenp, *lenp + *offsetp, &s, start,
+send)) {
*lenp -= boffset;
found = TRUE;
}
@@ -5708,7 +5708,7 @@
s += UTF8SKIP(s);
if (s >= send)
s = send;
- if (S_utf8_mg_pos_init(sv, &mg, &cache, 2, lenp, s, start))
+ if (utf8_mg_pos_init(sv, &mg, &cache, 2, lenp, s, start))
cache[2] += *offsetp;
}
*lenp = s - start;
End of Patch.
