diff options
Diffstat (limited to 'src/interfaces/perl5')
| -rw-r--r-- | src/interfaces/perl5/Pg.xs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interfaces/perl5/Pg.xs b/src/interfaces/perl5/Pg.xs index 7ff9478df1..fdcec87c79 100644 --- a/src/interfaces/perl5/Pg.xs +++ b/src/interfaces/perl5/Pg.xs @@ -1,6 +1,6 @@ /*------------------------------------------------------- * - * $Id: Pg.xs,v 1.15 2000/10/24 17:00:00 tgl Exp $ with patch for NULs + * $Id: Pg.xs,v 1.16 2000/12/03 20:45:40 tgl Exp $ with patch for NULs * * Copyright (c) 1997, 1998 Edmund Mergl * @@ -215,7 +215,7 @@ PQconnectdb(conninfo) } } else { while (*ptr && *ptr != ' ' && *ptr != '\t') { - *ptr = tolower(*ptr); + *ptr = tolower((unsigned char) *ptr); ptr++; } } @@ -734,7 +734,7 @@ connectdb(conninfo) } } else { while (*ptr && *ptr != ' ' && *ptr != '\t') { - *ptr = tolower(*ptr); + *ptr = tolower((unsigned char) *ptr); ptr++; } } |