Remove an unused variable left over from change #26041

p4raw-link: @26041 on //depot/perl: 8c56068e9474ff1eb28abd58496550d54581dd25

p4raw-id: //depot/perl@26044

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);