This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Opcode.xs/RC2 compile nit on VMS
authorCraig A. Berry <craigberry@mac.com>
Wed, 5 Nov 2003 12:16:34 +0000 (06:16 -0600)
committerNicholas Clark <nick@ccl4.org>
Wed, 5 Nov 2003 19:13:56 +0000 (19:13 +0000)
Message-ID: <2097592.1068056194261.JavaMail.craigberry@mac.com>

p4raw-id: //depot/perl@21667

ext/Opcode/Opcode.xs

index 51be8bf..067ffdb 100644 (file)
@@ -317,7 +317,7 @@ PPCODE:
 
     PUSHMARK(SP);
     perl_call_sv(codesv, GIMME|G_EVAL|G_KEEPERR); /* use callers context */
-    sv_free(dummy_hv);  /* get rid of what save_hash gave us*/
+    sv_free( (SV *) dummy_hv);  /* get rid of what save_hash gave us*/
     SPAGAIN; /* for the PUTBACK added by xsubpp */
     LEAVE;