diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2007-05-12 19:21:02 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2007-05-12 19:21:02 +0000 |
| commit | 5486870fe7f0fd0e99bf9619d5fd857a5b972014 (patch) | |
| tree | 9f5b70fdc6e84c85d8ccf54834fcd75578ed3a17 /ext/Devel | |
| parent | 2f9285f84584cb56950bf07de6ded6ebcdc3d302 (diff) | |
| download | perl-5486870fe7f0fd0e99bf9619d5fd857a5b972014.tar.gz | |
move PL_rsfp_filters into the parser struct
p4raw-id: //depot/perl@31200
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/PPPort/parts/inc/variables | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/Devel/PPPort/parts/inc/variables b/ext/Devel/PPPort/parts/inc/variables index 1011b1a084..be1625b591 100644 --- a/ext/Devel/PPPort/parts/inc/variables +++ b/ext/Devel/PPPort/parts/inc/variables @@ -98,6 +98,7 @@ __NEED_VAR__ U32 PL_signals = D_PPP_PERL_SIGNALS_INIT; # define PL_expect (PL_parser ? PL_parser->expect : 0) # define PL_copline (PL_parser ? PL_parser->copline : 0) # define PL_rsfp (PL_parser ? PL_parser->rsfp : 0) +# define PL_rsfp_filters (PL_parser ? PL_parser->rsfp_filters : 0) #endif =xsinit @@ -227,11 +228,12 @@ other_variables() ppp_TESTVAR(PL_no_modify); ppp_TESTVAR(PL_perl_destruct_level); ppp_TESTVAR(PL_perldb); - ppp_TESTVAR(PL_rsfp_filters); #ifdef PL_PARSER_EXISTS ppp_TESTVAR(PL_parser); /* just any var that isn't PL_expect */ + ppp_TESTVAR(PL_parser); #else ppp_TESTVAR(PL_rsfp); + ppp_TESTVAR(PL_rsfp_filters); #endif ppp_TESTVAR(PL_stack_base); ppp_TESTVAR(PL_stack_sp); |