In perl.git, the branch blead has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/52e18d8c188e949821d841ea625161e5c0430fa4?hp=2813d4adc971fbaa124b5322d4bccaa73e9df8e2>

- Log -----------------------------------------------------------------
commit 52e18d8c188e949821d841ea625161e5c0430fa4
Author: Karl Williamson <[email protected]>
Date:   Tue Jan 30 12:34:20 2018 -0700

    regcomp.c: Silence compiler maybe uninit warnings
    
    I don't believe that actually these can be used uninitialized, but
    initialize them anyway to silence the warnings.

commit 7ab0d5f351890da101d516d631e3f6d6134407aa
Author: Matthew Horsfall <[email protected]>
Date:   Tue Jan 23 14:45:06 2018 -0500

    Use the correct path for valgrind logs in make test.valgrind

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

Summary of changes:
 regcomp.c | 4 ++--
 t/TEST    | 3 ++-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/regcomp.c b/regcomp.c
index 1cd5329f10..6dbfed52ab 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -18032,7 +18032,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, 
U32 depth,
         U8 op = END;  /* The optimzation node-type */
         int posix_class = -1;   /* Illegal value */
         const char * cur_parse= RExC_parse;
-        U8 ANYOFM_mask;
+        U8 ANYOFM_mask = 0xFF;
         U32 anode_arg = 0;
 
         invlist_iterinit(cp_list);
@@ -18204,7 +18204,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, 
U32 depth,
             ) {
                 Size_t cp_count = 0;
                 bool first_time = TRUE;
-                unsigned int lowest_cp;
+                unsigned int lowest_cp = 0xFF;
                 U8 bits_differing = 0;
 
                 /* Only needed on EBCDIC, as there, variants and non- are mixed
diff --git a/t/TEST b/t/TEST
index 63f0c36d4e..6b3504002f 100755
--- a/t/TEST
+++ b/t/TEST
@@ -315,7 +315,8 @@ sub _cmd {
             my $perl_supp = $options->{return_dir} ? 
"$options->{return_dir}/perl.supp" : "perl.supp";
             my $valgrind_exe = $ENV{VALGRIND} // 'valgrind';
             if ($options->{run_dir}) {
-                $Valgrind_Log = "$options->{run_dir}/$Valgrind_Log";
+                require Cwd;
+                $Valgrind_Log = 
Cwd::abs_path("$options->{run_dir}/$Valgrind_Log");
             }
             my $vg_opts = $ENV{VG_OPTS}
               //   "--log-file=$Valgrind_Log "

-- 
Perl5 Master Repository

Reply via email to