From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Mon, 2 Jul 2001 15:45:41 +0000 (-0400)
Subject: Re: [PATCH 5.6.1] OS/2 cwd
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=45ee47cb1378c6ab197f2fd2990dd53283edcaab;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH 5.6.1] OS/2 cwd
Message-ID: <20010702154541.B24295@math.ohio-state.edu>

p4raw-id: //depot/perl@11106
---

diff --git a/os2/os2.c b/os2/os2.c
index d7d208e..bfe6e9f 100644
--- a/os2/os2.c
+++ b/os2/os2.c
@@ -2074,17 +2074,22 @@ XS(XS_Cwd_sys_abspath)
 	    l--;
 	ST(0) = sv_newmortal();
 	sv_setpvn( sv = (SV*)ST(0), RETVAL, l);
-	/* Remove duplicate slashes */
-	s = t = 1 + SvPV_force(sv, n_a);
+	/* Remove duplicate slashes, skipping the first three, which
+	   may be parts of a server-based path */
+	s = t = 3 + SvPV_force(sv, n_a);
 	e = SvEND(sv);
+	/* Do not worry about multibyte chars here, this would contradict the
+	   eventual UTFization, and currently most other places break too... */
 	while (s < e) {
 	    if (s[0] == t[-1] && s[0] == '/')
 		s++;				/* Skip duplicate / */
 	    else
 		*t++ = *s++;
 	}
-	*s = 0;
-	SvCUR_set(sv, s - SvPVX(sv));
+	if (t < e) {
+	    *t = 0;
+	    SvCUR_set(sv, t - SvPVX(sv));
+	}
     }
     XSRETURN(1);
 }