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 | 2593c6c6ec6db0c4fc4ec479ff2dcc27740704c8 (patch) | |
| tree | cc27168707f1f291b636c29c3169f64c522feb10 /pp_ctl.c | |
| parent | 7a1c739b67fd7d50a3ebda573fb9722f1a02a122 (diff) | |
| download | perl-2593c6c6ec6db0c4fc4ec479ff2dcc27740704c8.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
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 1 insertions, 1 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", |