diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2002-10-18 14:36:40 +0100 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-10-22 17:04:26 +0000 |
| commit | f3548bdc4d2efd11e139d110e60764b9dae81319 (patch) | |
| tree | 422946e9b45718c9b89294215cd0ce41c7e258ea /scope.h | |
| parent | e0fa987931295419ee9237d08014c4c5381f1cf8 (diff) | |
| download | perl-f3548bdc4d2efd11e139d110e60764b9dae81319.tar.gz | |
PL_curpad == AvARRAY(PL_comppad) always
Message-ID: <20021018133640.A19172@fdgroup.com>
p4raw-id: //depot/perl@18048
Diffstat (limited to 'scope.h')
| -rw-r--r-- | scope.h | 12 |
1 files changed, 3 insertions, 9 deletions
@@ -158,15 +158,9 @@ Closing bracket on a callback. See C<ENTER> and L<perlcall>. #define SAVECOMPPAD() \ STMT_START { \ - if (PL_comppad && PL_curpad == AvARRAY(PL_comppad)) { \ - SSCHECK(2); \ - SSPUSHPTR((SV*)PL_comppad); \ - SSPUSHINT(SAVEt_COMPPAD); \ - } \ - else { \ - SAVEVPTR(PL_curpad); \ - SAVESPTR(PL_comppad); \ - } \ + SSCHECK(2); \ + SSPUSHPTR((SV*)PL_comppad); \ + SSPUSHINT(SAVEt_COMPPAD); \ } STMT_END #ifdef USE_ITHREADS |