diff options
author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2006-01-21 15:31:06 +0000 |
---|---|---|
committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2006-01-21 15:31:06 +0000 |
commit | 2c531b38e2d7f7756a161bd27a81421df6d5ad3b (patch) | |
tree | cc27168707f1f291b636c29c3169f64c522feb10 | |
parent | 1af2bd5763a79c8b1997d453ad98ce29d814f7b6 (diff) | |
download | perl-2c531b38e2d7f7756a161bd27a81421df6d5ad3b.tar.gz |
Remove wrong cast to (void *), which fixes a gcc warning, and use
the return value of upg_version() at least once in the core.
p4raw-id: //depot/perl@26918
-rw-r--r-- | pp_ctl.c | 2 | ||||
-rw-r--r-- | util.c | 3 |
2 files changed, 2 insertions, 3 deletions
@@ -3091,7 +3091,7 @@ PP(pp_require) sv = new_version(sv); if (!sv_derived_from(PL_patchlevel, "version")) - (void *)upg_version(PL_patchlevel); + upg_version(PL_patchlevel); if (cUNOP->op_first->op_type == OP_CONST && cUNOP->op_first->op_private & OPpCONST_NOVER) { if ( vcmp(sv,PL_patchlevel) < 0 ) DIE(aTHX_ "Perls since %"SVf" too modern--this is %"SVf", stopped", @@ -4183,8 +4183,7 @@ Perl_new_version(pTHX_ SV *ver) #ifdef SvVOK } #endif - upg_version(rv); - return rv; + return upg_version(rv); } /* |