diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-10-29 21:36:17 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-10-29 21:36:17 +0000 |
| commit | 126f53f392147cb95f8643714b33fe373747680a (patch) | |
| tree | d7b88491325eb775db6874a278a7f7ee979d5eea /pp.c | |
| parent | d45f5b305b44dff90b4efbdafe64d7e925c4f263 (diff) | |
| download | perl-126f53f392147cb95f8643714b33fe373747680a.tar.gz | |
As Perl_cv_const_sv() now takes a const CV *, use that as the cast for
its arguments.
p4raw-id: //depot/perl@34646
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -809,7 +809,7 @@ PP(pp_undef) hv_undef(MUTABLE_HV(sv)); break; case SVt_PVCV: - if (cv_const_sv((CV*)sv) && ckWARN(WARN_MISC)) + if (cv_const_sv((const CV *)sv) && ckWARN(WARN_MISC)) Perl_warner(aTHX_ packWARN(WARN_MISC), "Constant subroutine %s undefined", CvANON((CV*)sv) ? "(anonymous)" : GvENAME(CvGV((CV*)sv))); /* FALLTHROUGH */ |