diff options
| author | Robin Barker <RMBarker@cpan.org> | 2008-02-13 17:46:02 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-02-14 08:09:36 +0000 |
| commit | fe9845cc7694fe04f66831f3e3d7db0a47720cfc (patch) | |
| tree | 913526495508f34e0d4beab7ca984a060f46ac72 /gv.c | |
| parent | 9f4ee62979dc352c40be9112d4effb2365866c3a (diff) | |
| download | perl-fe9845cc7694fe04f66831f3e3d7db0a47720cfc.tar.gz | |
use svtype
From: "Robin Barker" <Robin.Barker@npl.co.uk>
Message-ID: <46A0F33545E63740BC7563DE59CA9C6D093A35@exchsvr2.npl.ad.local>
p4raw-id: //depot/perl@33304
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -304,7 +304,7 @@ Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi) } STATIC void -S_gv_init_sv(pTHX_ GV *gv, I32 sv_type) +S_gv_init_sv(pTHX_ GV *gv, const svtype sv_type) { PERL_ARGS_ASSERT_GV_INIT_SV; @@ -895,13 +895,13 @@ Perl_gv_stashsv(pTHX_ SV *sv, I32 flags) GV * -Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type) { +Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, const svtype sv_type) { PERL_ARGS_ASSERT_GV_FETCHPV; return gv_fetchpvn_flags(nambeg, strlen(nambeg), add, sv_type); } GV * -Perl_gv_fetchsv(pTHX_ SV *name, I32 flags, I32 sv_type) { +Perl_gv_fetchsv(pTHX_ SV *name, I32 flags, const svtype sv_type) { STRLEN len; const char * const nambeg = SvPV_const(name, len); PERL_ARGS_ASSERT_GV_FETCHSV; @@ -910,7 +910,7 @@ Perl_gv_fetchsv(pTHX_ SV *name, I32 flags, I32 sv_type) { GV * Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags, - I32 sv_type) + const svtype sv_type) { dVAR; register const char *name = nambeg; |