diff options
| author | Andy Lester <andy@petdance.com> | 2005-06-06 05:11:07 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-07 17:03:16 +0000 |
| commit | 66a1b24beb76ea873ad4caa57ee3ab9df945afbf (patch) | |
| tree | e59a6ec85d3a4225104f0176749497fb46256961 /pp_ctl.c | |
| parent | f681a178ed5ab9eaae71b97c6eea3744c0304d67 (diff) | |
| download | perl-66a1b24beb76ea873ad4caa57ee3ab9df945afbf.tar.gz | |
Random cleanups #47
Message-ID: <20050606151107.GC7022@petdance.com>
p4raw-id: //depot/perl@24735
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1653,8 +1653,8 @@ PP(pp_caller) if (CxTYPE(cx) == CXt_SUB && cx->blk_sub.hasargs && CopSTASH_eq(PL_curcop, PL_debstash)) { - AV *ary = cx->blk_sub.argarray; - const int off = AvARRAY(ary) - AvALLOC(ary); + AV * const ary = cx->blk_sub.argarray; + const int off = AvARRAY(ary) - AvALLOC(ary); if (!PL_dbargs) { GV* tmpgv; |