diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-21 23:36:49 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-21 23:36:49 +0000 |
| commit | de030af3419d6a4e465a5bde7cc2bada20a15fe8 (patch) | |
| tree | d5ce9170e8319d84cf60c4616bee9539ffc4af85 /ext/SDBM_File | |
| parent | fa4e59440d916506469cd46950fc1c928f614950 (diff) | |
| download | perl-de030af3419d6a4e465a5bde7cc2bada20a15fe8.tar.gz | |
s/isspace/isSPACE/g and make sure the CRT version is always
passed an unsigned char (fixes random occurrence of spaces in
arguments containing high-bit chars passed to spawned children,
on win32)
p4raw-id: //depot/perl@3445
Diffstat (limited to 'ext/SDBM_File')
| -rw-r--r-- | ext/SDBM_File/sdbm/dbe.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/ext/SDBM_File/sdbm/dbe.c b/ext/SDBM_File/sdbm/dbe.c index b6bc8deba8..9f44180f39 100644 --- a/ext/SDBM_File/sdbm/dbe.c +++ b/ext/SDBM_File/sdbm/dbe.c @@ -138,7 +138,7 @@ datum db; putchar('"'); for (i = 0; i < db.dsize; i++) { - if (isprint(db.dptr[i])) + if (isprint((unsigned char)db.dptr[i])) putchar(db.dptr[i]); else { putchar('\\'); @@ -174,7 +174,10 @@ char *s; *p = '\f'; else if (*s == 't') *p = '\t'; - else if (isdigit(*s) && isdigit(*(s + 1)) && isdigit(*(s + 2))) { + else if (isdigit((unsigned char)*s) + && isdigit((unsigned char)*(s + 1)) + && isdigit((unsigned char)*(s + 2))) + { i = (*s++ - '0') << 6; i |= (*s++ - '0') << 3; i |= *s - '0'; |