Change 32039 by [EMAIL PROTECTED] on 2007/10/05 23:03:14
In the MAD code, eliminate one Perl_sv_catpvf() and convert one
construction to *pvs.
Affected files ...
... //depot/perl/toke.c#794 edit
Differences ...
==== //depot/perl/toke.c#794 (text) ====
Index: perl/toke.c
--- perl/toke.c#793~32035~ 2007-10-05 13:31:23.000000000 -0700
+++ perl/toke.c 2007-10-05 16:03:14.000000000 -0700
@@ -3381,8 +3381,10 @@
else
Perl_croak(aTHX_ "panic: yylex");
if (PL_madskills) {
- SV* const tmpsv = newSVpvs("");
- Perl_sv_catpvf(aTHX_ tmpsv, "\\%c", *s);
+ SV* const tmpsv = newSVpvs("\\ ");
+ /* replace the space with the character we want to escape
+ */
+ SvPVX(tmpsv)[1] = *s;
curmad('_', tmpsv);
}
PL_bufptr = s + 1;
@@ -10956,8 +10958,12 @@
PL_sublex_info.super_bufend = PL_bufend;
PL_multi_end = 0;
pm->op_pmflags |= PMf_EVAL;
- while (es-- > 0)
- sv_catpv(repl, (const char *)(es ? "eval " : "do "));
+ while (es-- > 0) {
+ if (es)
+ sv_catpvs(repl, "eval ");
+ else
+ sv_catpvs(repl, "do ");
+ }
sv_catpvs(repl, "{");
sv_catsv(repl, PL_lex_repl);
if (strchr(SvPVX(PL_lex_repl), '#'))
End of Patch.
