From 6f3612539c425da2bc1d34db621696e6a273b01c Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Thu, 18 Nov 2010 23:00:31 +0200
Subject: Bring latest byte code gawk into git. Hurray!

---
 pc/popen.c | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'pc/popen.c')

diff --git a/pc/popen.c b/pc/popen.c
index 287b0b9b..3410e2ca 100644
--- a/pc/popen.c
+++ b/pc/popen.c
@@ -87,8 +87,10 @@ scriptify(const char *command)
   slashify(name, p);
   if (! (i = unixshell(p))) {
     char *p = (char *) realloc(name, strlen(name) + 5);
-    if (p == NULL)
+    if (p == NULL) {
+	free(cmd);
 	return NULL;
+    }
     name = p;
     strcat(name, ".bat");
   }
@@ -98,10 +100,14 @@ scriptify(const char *command)
   if ((fp = fopen(p, i ? "wb" : "w")) != NULL) {
     if (! i) fputs("@echo off\n", fp);
     i = strlen(command);
-    if ((fwrite(command, 1, i, fp) < i) || (fputc('\n', fp) == EOF))
+    if ((fwrite(command, 1, i, fp) < i) || (fputc('\n', fp) == EOF)) {
+      free(cmd);
       cmd = NULL; 
-  } else
+    {
+  } else {
+    free(cmd);
     cmd = NULL;
+  }
   if (fp) fclose(fp); 
   return(cmd);
 }
-- 
cgit v1.2.3