projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7857f36
)
Fix compiler warning
author
Father Chrysostomos
<sprout@cpan.org>
Fri, 26 Nov 2010 22:00:56 +0000
(14:00 -0800)
committer
Father Chrysostomos
<sprout@cpan.org>
Fri, 26 Nov 2010 22:00:56 +0000
(14:00 -0800)
gv.c
patch
|
blob
|
history
diff --git
a/gv.c
b/gv.c
index
f51839e
..
5fd385b
100644
(file)
--- a/
gv.c
+++ b/
gv.c
@@
-319,7
+319,7
@@
Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi)
cv = newCONSTSUB(stash, (name0 ? name0 : name), has_constant);
/* In case op.c:S_process_special_blocks stole it: */
if (!GvCV(gv))
- GvCV(gv) = SvREFCNT_inc_simple_NN(cv);
+ GvCV(gv) =
(CV *)
SvREFCNT_inc_simple_NN(cv);
assert(GvCV(gv) == cv); /* newCONSTSUB should have set this */
if (name0)
Safefree(name0);