[perl.git] branch smoke-me/khw-vlb updated. v5.29.6-99-g7c16ff31fa

[Karl Williamson]

In perl.git, the branch smoke-me/khw-vlb has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/7c16ff31fa7c24affea8f6204076f1b6a01d8787?hp=1f4d8233d73991cfab8d4232adff556c2849a31a>

- Log -----------------------------------------------------------------
commit 7c16ff31fa7c24affea8f6204076f1b6a01d8787
Author: Karl Williamson <k...@cpan.org>
Date:   Sun Jan 13 09:45:04 2019 -0700

    f

-----------------------------------------------------------------------

Summary of changes:
 regcomp.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/regcomp.c b/regcomp.c
index 3ded358f2a..ea076258cd 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -20212,9 +20212,11 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const 
regnode *o, const regmatch_
             else {
                 SV *sv_dat= MUTABLE_SV(progi->data->data[ parno ]);
                 I32 *nums=(I32*)SvPVX(sv_dat);
-                parno = nums[0];
-                SV **name= av_fetch(name_list, parno, 0 );
                 I32 n;
+                SV **name;
+
+                parno = nums[0];
+                name= av_fetch(name_list, parno, 0 );
                 if (name) {
                     for ( n=0; n<SvIVX(sv_dat); n++ ) {
                         Perl_sv_catpvf(aTHX_ sv, "%s%" IVdf,

-- 
Perl5 Master Repository