More PERL_POISON - poison SvANY() and SvREFCNT() in freed SV heads.

[p5sagit/p5-mst-13.2.git] / win32 / win32.c

diff --git a/win32/win32.c b/win32/win32.c
index 880a59b..56b5da1 100644 (file)
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -1395,7 +1395,7 @@ win32_putenv(const char *name)
     dTHX;
     char* curitem;
     char* val;
-    int length, relval = -1;
+    int relval = -1;
 
     if (name) {
         Newx(curitem,strlen(name)+1,char);