diff options
author | Nicholas Clark <nick@ccl4.org> | 2005-06-07 18:38:39 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2005-06-07 18:38:39 +0000 |
commit | e62f0680cdecd36f79df8a7dabc61c6a2739f07a (patch) | |
tree | 28d33b79419a95800569ff331a2eec4bf0e66524 /universal.c | |
parent | 9ce348e89750366600d8292ab1f0f55948ddb66e (diff) | |
download | perl-e62f0680cdecd36f79df8a7dabc61c6a2739f07a.tar.gz |
More SvPV consting.
p4raw-id: //depot/perl@24740
Diffstat (limited to 'universal.c')
-rw-r--r-- | universal.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/universal.c b/universal.c index 6c118b7845..eb4f53183e 100644 --- a/universal.c +++ b/universal.c @@ -268,7 +268,7 @@ XS(XS_UNIVERSAL_isa) || (SvGMAGICAL(sv) && SvPOKp(sv) && SvCUR(sv)))) XSRETURN_UNDEF; - name = (const char *)SvPV(ST(1),n_a); + name = SvPV_const(ST(1),n_a); ST(0) = boolSV(sv_derived_from(sv, name)); XSRETURN(1); @@ -295,7 +295,7 @@ XS(XS_UNIVERSAL_can) || (SvGMAGICAL(sv) && SvPOKp(sv) && SvCUR(sv)))) XSRETURN_UNDEF; - name = (const char *)SvPV(ST(1),n_a); + name = SvPV_const(ST(1),n_a); rv = &PL_sv_undef; if (SvROK(sv)) { @@ -642,7 +642,7 @@ XS(XS_utf8_valid) SV * sv = ST(0); { STRLEN len; - const char *s = SvPV(sv,len); + const char *s = SvPV_const(sv,len); if (!SvUTF8(sv) || is_utf8_string((const U8*)s,len)) XSRETURN_YES; else @@ -810,7 +810,7 @@ XS(XS_PerlIO_get_layers) SV **varp = svp; SV **valp = svp + 1; STRLEN klen; - const char *key = SvPV(*varp, klen); + const char *key = SvPV_const(*varp, klen); switch (*key) { case 'i': |