Silence a VC compiler warning
authorSteve Hay <SteveHay@planit.com>
Thu, 14 Dec 2006 09:37:45 +0000 (09:37 +0000)
committerSteve Hay <SteveHay@planit.com>
Thu, 14 Dec 2006 09:37:45 +0000 (09:37 +0000)
p4raw-id: //depot/perl@29553

op.c

diff --git a/op.c b/op.c
index 66587c0..03f54b1 100644 (file)
--- a/op.c
+++ b/op.c
@@ -4595,7 +4595,7 @@ Perl_newFOROP(pTHX_ I32 flags, char *label, line_t forline, OP *sv, OP *expr, OP
        LOOP *tmp;
        NewOp(1234,tmp,1,LOOP);
        Copy(loop,tmp,1,LISTOP);
-       S_op_destroy(aTHX_ loop);
+       S_op_destroy(aTHX_ (OP*)loop);
        loop = tmp;
     }
 #else