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:
ebc6a11
)
Re: [PATCH] madprop about forced words
author
Gerard Goossen
<gerard@tty.nl>
Thu, 19 Apr 2007 13:33:21 +0000
(15:33 +0200)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Fri, 20 Apr 2007 11:55:37 +0000
(11:55 +0000)
Message-ID: <
20070419113321
.GE19244@ostwald>
p4raw-id: //depot/perl@30992
op.h
patch
|
blob
|
history
toke.c
patch
|
blob
|
history
diff --git
a/op.h
b/op.h
index
d9d5336
..
c01bf4d
100644
(file)
--- a/
op.h
+++ b/
op.h
@@
-696,6
+696,7
@@
struct token {
* E tr/E/R/, /E/
* f folded constant op
* F peg op for format
+ * g op was forced to be a word
* i if/unless modifier
* I if/elsif/unless statement
* K retired kid op
diff --git
a/toke.c
b/toke.c
index
0485df1
..
d5fbd0a
100644
(file)
--- a/
toke.c
+++ b/
toke.c
@@
-1365,7
+1365,7
@@
S_force_word(pTHX_ register char *start, int token, int check_keyword, int allow
}
}
if (PL_madskills)
- curmad('
B
', newSVpvs( "forced" ));
+ curmad('
g
', newSVpvs( "forced" ));
NEXTVAL_NEXTTOKE.opval
= (OP*)newSVOP(OP_CONST,0,
S_newSV_maybe_utf8(aTHX_ PL_tokenbuf, len));