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:
ca06c01
)
don't include MAD code when its not needed
author
Dave Mitchell
<davem@fdisolutions.com>
Sat, 16 Dec 2006 02:53:59 +0000
(
02:53
+0000)
committer
Dave Mitchell
<davem@fdisolutions.com>
Sat, 16 Dec 2006 02:53:59 +0000
(
02:53
+0000)
p4raw-id: //depot/perl@29561
op.c
patch
|
blob
|
history
diff --git
a/op.c
b/op.c
index
03f54b1
..
2ed2198
100644
(file)
--- a/
op.c
+++ b/
op.c
@@
-2826,9
+2826,12
@@
Perl_pmtrans(pTHX_ OP *o, OP *expr, OP *repl)
{
dVAR;
SV * const tstr = ((SVOP*)expr)->op_sv;
- SV * const rstr = (repl->op_type == OP_NULL)
- ? ((SVOP*)((LISTOP*)repl)->op_first)->op_sv
- : ((SVOP*)repl)->op_sv;
+ SV * const rstr =
+#ifdef PERL_MAD
+ (repl->op_type == OP_NULL)
+ ? ((SVOP*)((LISTOP*)repl)->op_first)->op_sv :
+#endif
+ ((SVOP*)repl)->op_sv;
STRLEN tlen;
STRLEN rlen;
const U8 *t = (U8*)SvPV_const(tstr, tlen);