diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2001-03-08 12:06:57 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-09 01:20:39 +0000 |
| commit | aea4f609175b8d3694278560443a821f9cb5265c (patch) | |
| tree | 7da408a425212defbdef9241ff28e718f99633c8 /ext/re | |
| parent | be16fac9c9469295c8c71e007edeeaf65dd86c84 (diff) | |
| download | perl-aea4f609175b8d3694278560443a821f9cb5265c.tar.gz | |
Re: [ PATCH perl@8956 ] new debug option -DR shows ref counts
Message-Id: <200103081206.MAA06281@tiree.fdgroup.co.uk>
p4raw-id: //depot/perl@9084
Diffstat (limited to 'ext/re')
| -rw-r--r-- | ext/re/re.xs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/ext/re/re.xs b/ext/re/re.xs index 25c2a90d60..5ee333b335 100644 --- a/ext/re/re.xs +++ b/ext/re/re.xs @@ -20,8 +20,6 @@ extern SV* my_re_intuit_string (pTHX_ regexp *prog); static int oldfl; -#define R_DB 512 - static void deinstall(pTHX) { @@ -32,7 +30,7 @@ deinstall(pTHX) PL_regfree = Perl_pregfree; if (!oldfl) - PL_debug &= ~R_DB; + PL_debug &= ~DEBUG_r_FLAG; } static void @@ -44,8 +42,8 @@ install(pTHX) PL_regint_start = &my_re_intuit_start; PL_regint_string = &my_re_intuit_string; PL_regfree = &my_regfree; - oldfl = PL_debug & R_DB; - PL_debug |= R_DB; + oldfl = PL_debug & DEBUG_r_FLAG; + PL_debug |= ~DEBUG_r_FLAG; } MODULE = re PACKAGE = re |