projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
fe578d7
)
madprop about forced words
author
Gerard Goossen
<gerard@tty.nl>
Thu, 29 Mar 2007 18:10:42 +0000
(20:10 +0200)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Fri, 6 Apr 2007 13:19:44 +0000
(13:19 +0000)
Message-ID: <
20070329161042
.GG20231@ostwald>
p4raw-id: //depot/perl@30850
toke.c
patch
|
blob
|
history
diff --git
a/toke.c
b/toke.c
index
63fdbfa
..
5a79dcd
100644
(file)
--- a/
toke.c
+++ b/
toke.c
@@
-1364,6
+1364,8
@@
S_force_word(pTHX_ register char *start, int token, int check_keyword, int allow
PL_expect = XOPERATOR;
}
}
+ if (PL_madskills)
+ curmad('B', newSVpvs( "forced" ));
NEXTVAL_NEXTTOKE.opval
= (OP*)newSVOP(OP_CONST,0,
S_newSV_maybe_utf8(aTHX_ PL_tokenbuf, len));