The change #20809 opened up a code path that might leave s unset.

p4raw-link: @20809 on //depot/perl: 0daa599b568c3d2373a59e6063e86a6f865719a8

p4raw-id: //depot/perl@20829

diff --git a/mg.c b/mg.c
index d298176..185fd9a 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -547,7 +547,7 @@ int
 Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
 {
     register I32 paren;
-    register char *s;
+    register char *s = NULL;
     register I32 i;
     register REGEXP *rx;