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.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 22 Aug 2003 12:22:04 +0000 (12:22 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 22 Aug 2003 12:22:04 +0000 (12:22 +0000)
p4raw-link: @20809 on //depot/perl: 0daa599b568c3d2373a59e6063e86a6f865719a8

p4raw-id: //depot/perl@20829

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;