summaryrefslogtreecommitdiff
path: root/dump.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2006-08-08 03:02:35 +0300
committerSteve Peters <steve@fisharerojo.org>2006-08-08 03:55:13 +0000
commit666ea1927d03c6430ac8120e8603244e721e20a0 (patch)
tree825978bf91e0470887834b60aeb5ca5815ec39ed /dump.c
parent0ec9ad96b741d60d5dad460acf757c031b11fe15 (diff)
downloadperl-666ea1927d03c6430ac8120e8603244e721e20a0.tar.gz
g++ stage 1 reached
Message-ID: <44D7AA6B.4040802@iki.fi> p4raw-id: //depot/perl@28674
Diffstat (limited to 'dump.c')
-rw-r--r--dump.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/dump.c b/dump.c
index fc3e8f3a18..03bdab3bac 100644
--- a/dump.c
+++ b/dump.c
@@ -718,8 +718,8 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o)
"%*sTYPE = %s ===> ",
(int)(PL_dumpindent*level-4), "", OP_NAME(o));
if (o->op_next)
- PerlIO_printf(file, (const char *)(seq ? "%"UVf"\n" : "(%"UVf")\n"),
- sequence_num(o->op_next));
+ PerlIO_printf(file, seq ? "%"UVf"\n" : "(%"UVf")\n",
+ sequence_num(o->op_next));
else
PerlIO_printf(file, "DONE\n");
if (o->op_targ) {