develooper Front page | perl.perl5.changes | Postings from November 2010

[perl.git] branch blead, updated. v5.13.7-117-g55a80fa

From:
Father Chrysostomos
Date:
November 26, 2010 14:01
Subject:
[perl.git] branch blead, updated. v5.13.7-117-g55a80fa
Message ID:
E1PM6Lr-0002U8-D0@camel.ams6.corp.booking.com
In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/55a80fa06def8f37cef9b790706d56aeb65cd0dc?hp=7857f36095641de1280b49b62ddb1f1ad78db186>

- Log -----------------------------------------------------------------
commit 55a80fa06def8f37cef9b790706d56aeb65cd0dc
Author: Father Chrysostomos <sprout@cpan.org>
Date:   Fri Nov 26 14:00:56 2010 -0800

    Fix compiler warning
-----------------------------------------------------------------------

Summary of changes:
 gv.c |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/gv.c b/gv.c
index f51839e..5fd385b 100644
--- 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);

--
Perl5 Master Repository



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About