fix 'might be used uninitialized' in PerlIO_tmpfile

sv can't actually be used uninitialized, but set it to zero to
shut up stupid compilers

diff --git a/perlio.c b/perlio.c
index 57a61d9..ab08bec 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -5156,7 +5156,7 @@ PerlIO_tmpfile(void)
      int fd = -1;
      char tempname[] = "/tmp/PerlIO_XXXXXX";
      const char * const tmpdir = PL_tainting ? NULL : PerlEnv_getenv("TMPDIR");
-     SV * sv;
+     SV * sv = NULL;
      /*
       * I have no idea how portable mkstemp() is ... NI-S
       */