This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence a VC compiler warning
[perl5.git] / 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