summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2007-01-15 08:09:30 +0200
committerH.Merijn Brand <h.m.brand@xs4all.nl>2007-01-15 07:45:28 +0000
commitaa1f7c5b6ec66b97fca8377d522bdd9e4ff098de (patch)
tree0b750c59a8e2908c3fcb8ca708baf2359a603d33 /toke.c
parent4dc4bba60f13ed8dad154870e750085525979ec1 (diff)
downloadperl-aa1f7c5b6ec66b97fca8377d522bdd9e4ff098de.tar.gz
g++ fixes
Message-Id: <20070115040930.8685843A67@anubis.hut.fi> p4raw-id: //depot/perl@29812
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/toke.c b/toke.c
index 57fb8a0d40..755f22c4d6 100644
--- a/toke.c
+++ b/toke.c
@@ -10997,7 +10997,7 @@ S_scan_trans(pTHX_ char *start)
}
no_more:
- tbl = PerlMemShared_calloc(complement&&!del?258:256, sizeof(short));
+ tbl = (short *)PerlMemShared_calloc(complement&&!del?258:256, sizeof(short));
o = newPVOP(OP_TRANS, 0, (char*)tbl);
o->op_private &= ~OPpTRANS_ALL;
o->op_private |= del|squash|complement|