Silly gcc.

p4raw-id: //depot/perl@20355

diff --git a/perl.c b/perl.c
index 3600eb9..23d2b95 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -935,7 +935,7 @@ setuid perl scripts securely.\n");
         * the area we are able to modify is limited to the size of
         * the original argv[0].  (See below for 'contiguous', though.)
         * --jhi */
-        char *s;
+        char *s = NULL;
         int i;
         UV mask =
           ~(UV)(PTRSIZE == 4 ? 3 : PTRSIZE == 8 ? 7 : PTRSIZE == 16 ? 15 : 0);