From 2f5f431073b5b24413f4294cd8dfdc4b94f4713d Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Tue, 17 Mar 1998 14:32:39 +0000 Subject: [PATCH] [win32] propagate bugfix @ change831 from asperl p4raw-id: //depot/win32/perl@832 --- regcomp.c | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/regcomp.c b/regcomp.c index 3581a5d..0f48976 100644 --- a/regcomp.c +++ b/regcomp.c @@ -2574,12 +2574,13 @@ pregfree(struct regexp *r) Safefree(r->precomp); if (r->subbase) Safefree(r->subbase); - if (r->substrs) + if (r->substrs) { + if (r->anchored_substr) + SvREFCNT_dec(r->anchored_substr); + if (r->float_substr) + SvREFCNT_dec(r->float_substr); Safefree(r->substrs); - if (r->anchored_substr) - SvREFCNT_dec(r->anchored_substr); - if (r->float_substr) - SvREFCNT_dec(r->float_substr); + } if (r->data) { int n = r->data->count; while (--n >= 0) { -- 2.7.4