diff options
| author | Larry Wall <larry@netlabs.com> | 1993-10-10 00:00:00 +0000 |
|---|---|---|
| committer | Larry Wall <larry@netlabs.com> | 1993-10-10 00:00:00 +0000 |
| commit | 93a17b20b6d176db3f04f51a63b0a781e5ffd11c (patch) | |
| tree | 764149b1d480d5236d4d62b3228bd57f53a71042 /util.c | |
| parent | 79072805bf63abe5b5978b5928ab00d360ea3e7f (diff) | |
| download | perl-93a17b20b6d176db3f04f51a63b0a781e5ffd11c.tar.gz | |
perl 5.0 alpha 3
[editor's note: the sparc executables have not been included,
and emacs backup files have been removed]
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -24,14 +24,14 @@ * * Revision 4.0.1.3 91/11/05 19:18:26 lwall * patch11: safe malloc code now integrated into Perl's malloc when possible - * patch11: index("little", "longer string") could visit faraway places + * patch11: strchr("little", "longer string") could visit faraway places * patch11: warn '-' x 10000 dumped core * patch11: forked exec on non-existent program now issues a warning * * Revision 4.0.1.2 91/06/07 12:10:42 lwall * patch4: new copyright notice * patch4: made some allowances for "semi-standard" C - * patch4: index() could blow up searching for null string + * patch4: strchr() could blow up searching for null string * patch4: taintchecks could improperly modify parent in vfork() * patch4: exec would close files even if you cleared close-on-exec flag * @@ -1501,8 +1501,8 @@ same_dirent(a,b) char *a; char *b; { - char *fa = rindex(a,'/'); - char *fb = rindex(b,'/'); + char *fa = strrchr(a,'/'); + char *fb = strrchr(b,'/'); struct stat tmpstatbuf1; struct stat tmpstatbuf2; #ifndef MAXPATHLEN @@ -1564,7 +1564,7 @@ I32 *retlen; register unsigned long retval = 0; char *tmp; - while (len-- && *s && (tmp = index(hexdigit, *s))) { + while (len-- && *s && (tmp = strchr(hexdigit, *s))) { retval <<= 4; retval |= (tmp - hexdigit) & 15; s++; |