X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=op.c;h=7fae9f75ca57645dacdeb439895ca42269099a2e;hb=6e7c9e4dbac15378c097f03304f6025aebc78a15;hp=f38b26cf15109276ed548453bae543a0b12eac1e;hpb=5102b790fbd2a20471bf6f85d8337fd8b34f8dff;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/op.c b/op.c
index f38b26c..7fae9f7 100644
--- a/op.c
+++ b/op.c
@@ -2112,8 +2112,12 @@ Perl_fold_constants(pTHX_ register OP *o)
 	return o;
 
     if (!(PL_hints & HINT_INTEGER)) {
-	if (type == OP_DIVIDE || !(o->op_flags & OPf_KIDS))
+	if (type == OP_MODULO
+	    || type == OP_DIVIDE
+	    || !(o->op_flags & OPf_KIDS))
+	{
 	    return o;
+	}
 
 	for (curop = ((UNOP*)o)->op_first; curop; curop = curop->op_sibling) {
 	    if (curop->op_type == OP_CONST) {