This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
The change #20809 opened up a code path that might leave s unset.
[perl5.git] / mg.c
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;