From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Thu, 29 Aug 1996 22:17:56 +0000 (+0000)
Subject: SH_PATH_INI vs. BIN_SH
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=89078e0fc0659c720f21de63d8d61f6f995a7d0b;p=p5sagit%2Fp5-mst-13.2.git

SH_PATH_INI vs. BIN_SH
---

diff --git a/os2/os2.c b/os2/os2.c
index 05ebae9..d5d761e 100644
--- a/os2/os2.c
+++ b/os2/os2.c
@@ -635,7 +635,7 @@ Perl_OS2_init()
     }
 }
 
-char sh_path[STATIC_FILE_LENGTH+1] = BIN_SH;
+char sh_path[STATIC_FILE_LENGTH+1] = SH_PATH_INI;
 
 char *
 perllib_mangle(char *s, unsigned int l)
@@ -648,7 +648,7 @@ perllib_mangle(char *s, unsigned int l)
 	newp = getenv("PERLLIB_PREFIX");
 	if (newp) {
 	    oldp = newp;
-	    while (*newp && !isSPACE(*newp)) {
+	    while (*newp && !isSPACE(*newp) && *newp != ';') {
 		newp++; oldl++;		/* Skip digits. */
 	    }
 	    while (*newp && (isSPACE(*newp) || *newp == ';')) {
@@ -675,7 +675,7 @@ perllib_mangle(char *s, unsigned int l)
 	die("Malformed PERLLIB_PREFIX");
     }
     strncpy(ret, newp, newl);
-    strncpy(ret + newl, s + oldl, l - oldl);
+    strcpy(ret + newl, s + oldl);
     return ret;
 }