Front page | perl.perl5.porters |
Postings from January 2001
At 9:21 PM -0600 1/16/01, Jarkko Hietaniemi wrote:
>
>I guess we could snip away a trailing slash. How about filesystems
>with-non-slash element separators, any experience/opinions, anyone?
From vms/vms.c:
/*{{{int my_mkdir(char *,Mode_t)*/
int
my_mkdir(char *dir, Mode_t mode)
{
STRLEN dirlen = strlen(dir);
dTHX;
/* zero length string sometimes gives ACCVIO */
if (dirlen == 0) return -1;
/* CRTL mkdir() doesn't tolerate trailing /, since that implies
* null file name/type. However, it's commonplace under Unix,
* so we'll allow it for a gain in portability.
*/
if (dir[dirlen-1] == '/') {
char *newdir = savepvn(dir,dirlen-1);
int ret = mkdir(newdir,mode);
Safefree(newdir);
return ret;
}
else return mkdir(dir,mode);
} /* end of my_mkdir */
/*}}}*/
--
____________________________________________
Craig A. Berry
mailto:craig.berry@psinetcs.com
Thread Previous
|
Thread Next