diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-11-27 22:04:56 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-30 11:48:40 -0800 |
| commit | e6df7a56063a4369e9942fa219dee1109f66a14a (patch) | |
| tree | 0bb386dc9e2578f87cdd2f4c2d502b054245e39e /pad.c | |
| parent | 0aaff5a18f835ca5d9cbbbf6546aff21cc5a9e0e (diff) | |
| download | perl-e6df7a56063a4369e9942fa219dee1109f66a14a.tar.gz | |
Use PADNAME rather than SV in pad.c:S_unavailable
Diffstat (limited to 'pad.c')
| -rw-r--r-- | pad.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -1113,15 +1113,15 @@ the parent pad. #define CvLATE(cv) (CvANON(cv) || CvCLONE(cv) || SvTYPE(cv) == SVt_PVFM) static void -S_unavailable(pTHX_ SV *namesv) +S_unavailable(pTHX_ PADNAME *name) { /* diag_listed_as: Variable "%s" is not available */ Perl_ck_warner(aTHX_ packWARN(WARN_CLOSURE), - "%se \"%"SVf"\" is not available", - *SvPVX_const(namesv) == '&' + "%se \"%"PNf"\" is not available", + *PadnamePV(name) == '&' ? "Subroutin" : "Variabl", - SVfARG(namesv)); + PNfARG(name)); } STATIC PADOFFSET |