various little nits

p4raw-id: //depot/perl@3436

1 files changed, 6 insertions, 4 deletions

diff --git a/os2/os2.c b/os2/os2.c
index 3103012df2..7f011f7fea 100644
--- a/os2/os2.c
+++ b/os2/os2.c
@@ -1240,10 +1240,12 @@ settmppath()
     if (!p) return;
     len = strlen(p);
     tpath = (char *)malloc(len + strlen(TMPPATH1) + 2);
-    strcpy(tpath, p);
-    tpath[len] = '/';
-    strcpy(tpath + len + 1, TMPPATH1);
-    tmppath = tpath;
+    if (tpath) {
+	strcpy(tpath, p);
+	tpath[len] = '/';
+	strcpy(tpath + len + 1, TMPPATH1);
+	tmppath = tpath;
+    }
 }
 
 #include "XSUB.h"