diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-11-15 10:15:43 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-11-15 10:15:43 +0000 |
| commit | 59cfed7d3d8869650cb695575c07168f937381f0 (patch) | |
| tree | 5d4b141b225c4b784d67a5f9e57757f9ee350eca /op.c | |
| parent | 2d12d04f1cca69e8010b11cf63b89ce3b00490b9 (diff) | |
| download | perl-59cfed7d3d8869650cb695575c07168f937381f0.tar.gz | |
Make the style of pad_add_name's flags consistent with pad_new's and pad_tidy's.
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -409,8 +409,8 @@ Perl_allocmy(pTHX_ const char *const name, const STRLEN len, const U32 flags) /* allocate a spare slot and store the name in that slot */ off = pad_add_name(name, len, - is_our ? pad_add_OUR : - PL_parser->in_my == KEY_state ? pad_add_STATE : 0, + is_our ? padadd_OUR : + PL_parser->in_my == KEY_state ? padadd_STATE : 0, PL_parser->in_my_stash, (is_our /* $_ is always in main::, even with our */ |