diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-06-10 23:12:29 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-06-10 23:12:29 +0000 |
| commit | cfd0369c40b647df9444518ec26b924a57e14ac8 (patch) | |
| tree | 688266bb3bff13d1164c071a95ed34e1cd649038 /universal.c | |
| parent | 349d4f2f3d114fbec6897c6007862eb07a409a2d (diff) | |
| download | perl-cfd0369c40b647df9444518ec26b924a57e14ac8.tar.gz | |
More SvPV consting. And other related drive-by refactoring.
p4raw-id: //depot/perl@24800
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/universal.c b/universal.c index 8f706cb1db..0a729e99d7 100644 --- a/universal.c +++ b/universal.c @@ -395,13 +395,13 @@ XS(XS_version_new) Perl_croak(aTHX_ "Usage: version::new(class, version)"); SP -= items; { - const char *classname = SvPV_nolen(ST(0)); + const char *classname = SvPV_nolen_const(ST(0)); SV *vs = ST(1); SV *rv; if (items == 3 ) { vs = sv_newmortal(); - Perl_sv_setpvf(aTHX_ vs,"v%s",SvPV_nolen(ST(2))); + Perl_sv_setpvf(aTHX_ vs,"v%s",SvPV_nolen_const(ST(2))); } rv = new_version(vs); |