This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
284e122
)
Opcode.xs/RC2 compile nit on VMS
author
Craig A. Berry
<craigberry@mac.com>
Wed, 5 Nov 2003 12:16:34 +0000
(06:16 -0600)
committer
Nicholas 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
patch
|
blob
|
blame
|
history
diff --git
a/ext/Opcode/Opcode.xs
b/ext/Opcode/Opcode.xs
index
51be8bf
..
067ffdb
100644
(file)
--- a/
ext/Opcode/Opcode.xs
+++ b/
ext/Opcode/Opcode.xs
@@
-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;