From e174e89a6052ba796c47d7ef3085a9d6ba21a30b Mon Sep 17 00:00:00 2001 From: David Mitchell Date: Wed, 19 Oct 2011 11:49:40 +0100 Subject: In Perl_re_op_compile, make a var volatile MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This function includes a setjmp to allow for abort and retry if the pattern getting compiled suddenly becomes UTF8. My recent changes to it left one var generating the dreaded "warning: variable ‘pat’ might be clobbered" warning. So declare it VOL to fix this. --- regcomp.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/regcomp.c b/regcomp.c index c9e5aac7e6..9449288308 100644 --- a/regcomp.c +++ b/regcomp.c @@ -5030,7 +5030,7 @@ Perl_re_op_compile(pTHX_ SV * const pattern, OP *expr, U32 orig_pm_flags) I32 flags; I32 minlen = 0; U32 pm_flags; - SV *pat; + SV * VOL pat; /* these are all flags - maybe they should be turned * into a single int with different bit masks */ -- cgit v1.2.1