Change 32710 by [EMAIL PROTECTED] on 2007/12/22 19:39:36
The ext/Cwd/Cwd.xs part of...
Subject: consting Cwd and ExtUtils::ParseXS
From: "Robin Barker" <[EMAIL PROTECTED]>
Date: Sat, 22 Dec 2007 00:52:54 -0000
Message-ID: <[EMAIL PROTECTED]>
lib/ExtUtils/ParseXS.pm had changes already made with change
#32691.
Affected files ...
... //depot/perl/ext/Cwd/Cwd.xs#39 edit
Differences ...
==== //depot/perl/ext/Cwd/Cwd.xs#39 (text) ====
Index: perl/ext/Cwd/Cwd.xs
--- perl/ext/Cwd/Cwd.xs#38~31382~ 2007-06-14 07:12:35.000000000 -0700
+++ perl/ext/Cwd/Cwd.xs 2007-12-22 11:39:36.000000000 -0800
@@ -79,7 +79,8 @@
return Perl_rmsexpand(aTHX_ (char*)path, resolved, NULL, 0);
#else
int rootd, serrno;
- char *p, *q, wbuf[MAXPATHLEN];
+ const char *p;
+ char *q, wbuf[MAXPATHLEN];
int symlinks = 0;
/* Save the starting point. */
@@ -112,17 +113,18 @@
loop:
q = strrchr(resolved, '/');
if (q != NULL) {
+ const char *dir;
p = q + 1;
if (q == resolved)
- q = "/";
+ dir = "/";
else {
do {
--q;
} while (q > resolved && *q == '/');
q[1] = '\0';
- q = resolved;
+ dir = resolved;
}
- if (chdir(q) < 0)
+ if (chdir(dir) < 0)
goto err1;
} else
p = resolved;
End of Patch.
