Change 27450 by [EMAIL PROTECTED] on 2006/03/09 21:24:04
-Dmap works, albeit with some test failures:
ext/B/t/f_sort.t 20 5 25.00% 2 4-6 16
ext/B/t/optree_samples.t 20 1 5.00% 18
ext/List/Util/t/weak.t 1 256 22 1 4.55% 22
ext/Safe/t/safeops.t 0 134 354 288 81.36% 211-354
lib/warnings.t 561 2 0.36% 3 10
Affected files ...
... //depot/perl/toke.c#656 edit
Differences ...
==== //depot/perl/toke.c#656 (text) ====
Index: perl/toke.c
--- perl/toke.c#655~27445~ 2006-03-09 11:22:10.000000000 -0800
+++ perl/toke.c 2006-03-09 13:24:04.000000000 -0800
@@ -993,7 +993,11 @@
/* reset variables for next time we lex */
PL_oldoldbufptr = PL_oldbufptr = PL_bufptr = s = PL_linestart
- = SvPVX(PL_linestr);
+ = SvPVX(PL_linestr)
+#ifdef PERL_MAD
+ + curoff
+#endif
+ ;
PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
PL_last_lop = PL_last_uni = NULL;
@@ -3104,12 +3108,12 @@
"### Saw case modifier\n"); });
s = PL_bufptr + 1;
if (s[1] == '\\' && s[2] == 'E') {
- PL_bufptr = s + 3;
#ifdef PERL_MAD
if (!thiswhite)
thiswhite = newSVpvn("",0);
sv_catpvn(thiswhite, PL_bufptr, 4);
#endif
+ PL_bufptr = s + 3;
PL_lex_state = LEX_INTERPCONCAT;
return yylex();
}
@@ -4109,7 +4113,7 @@
start_force(curforce);
NEXTVAL_NEXTTOKE.opval = attrs;
CURMAD('_', nextwhite);
- force_next(THING);
+ force_next(THING);
}
#ifdef PERL_MAD
if (PL_madskills) {
End of Patch.
