diff options
| author | Andy Lester <andy@petdance.com> | 2005-07-03 13:31:56 -0500 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-07-04 12:30:50 +0000 |
| commit | b64e5050699224c037d91354e38766884caa0910 (patch) | |
| tree | 38f329ba2a365c8eec6078887704f6e2c59562c6 /pad.c | |
| parent | c941fb51a763b50ea8ceb343cf253ac80c4ca160 (diff) | |
| download | perl-b64e5050699224c037d91354e38766884caa0910.tar.gz | |
Post-YAPC consting, now with an attachment!
Message-ID: <20050703233156.GA20967@petdance.com>
p4raw-id: //depot/perl@25067
Diffstat (limited to 'pad.c')
| -rw-r--r-- | pad.c | 8 |
1 files changed, 3 insertions, 5 deletions
@@ -229,7 +229,7 @@ void Perl_pad_undef(pTHX_ CV* cv) { I32 ix; - const PADLIST *padlist = CvPADLIST(cv); + const PADLIST * const padlist = CvPADLIST(cv); if (!padlist) return; @@ -457,9 +457,7 @@ PADOFFSET Perl_pad_add_anon(pTHX_ SV* sv, OPCODE op_type) { PADOFFSET ix; - SV* name; - - name = NEWSV(1106, 0); + SV* const name = NEWSV(1106, 0); sv_upgrade(name, SVt_PVNV); sv_setpvn(name, "&", 1); SvIV_set(name, -1); @@ -654,7 +652,7 @@ S_pad_findlex(pTHX_ const char *name, const CV* cv, U32 seq, int warn, I32 offset, new_offset; SV *new_capture; SV **new_capturep; - const AV *padlist = CvPADLIST(cv); + const AV * const padlist = CvPADLIST(cv); *out_flags = 0; |