cvsuser 04/01/03 11:09:38
Modified: src chartype.c
Log:
Fix bug in chartype_create_from_mapping - patch by Lars Balker Rasmussen
Revision Changes Path
1.22 +2 -2 parrot/src/chartype.c
Index: chartype.c
===================================================================
RCS file: /cvs/public/parrot/src/chartype.c,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -w -r1.21 -r1.22
--- chartype.c 14 Nov 2003 20:27:02 -0000 1.21
+++ chartype.c 3 Jan 2004 19:09:38 -0000 1.22
@@ -1,7 +1,7 @@
/* chartype.c
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: chartype.c,v 1.21 2003/11/14 20:27:02 petergibbs Exp $
+ * $Id: chartype.c,v 1.22 2004/01/03 19:09:38 petergibbs Exp $
* Overview:
* This defines the string character type subsystem
* Data Structure and Algorithms:
@@ -183,7 +183,7 @@
while (!feof(f)) {
char *p = fgets(line, 80, f);
- if (line[0] != '#') {
+ if (p && *p != '#') {
int n = sscanf(line, "%li\t%li", &typecode, &unicode);
if (n == 2 && typecode >= 0) {
if (typecode < 256 && typecode == one2one &&
