Change 34125 by [EMAIL PROTECTED] on 2008/07/11 11:20:04
Simplify code in pp_formline, removing a goto and localising and
consting a variable.
Affected files ...
... //depot/perl/pp_ctl.c#695 edit
Differences ...
==== //depot/perl/pp_ctl.c#695 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c#694~34092~ 2008-06-28 14:06:57.000000000 -0700
+++ perl/pp_ctl.c 2008-07-11 04:20:04.000000000 -0700
@@ -438,7 +438,6 @@
SV * nsv = NULL;
OP * parseres = NULL;
const char *fmt;
- bool oneline;
if (!SvMAGICAL(tmpForm) || !SvCOMPILED(tmpForm)) {
if (SvREADONLY(tmpForm)) {
@@ -764,12 +763,9 @@
case FF_LINESNGL:
chopspace = 0;
- oneline = TRUE;
- goto ff_line;
case FF_LINEGLOB:
- oneline = FALSE;
- ff_line:
{
+ const bool oneline = fpc[-1] == FF_LINESNGL;
const char *s = item = SvPV_const(sv, len);
itemsize = len;
if ((item_is_utf8 = DO_UTF8(sv)))
End of Patch.
