[Pspp-cvs] Changes to pspp/src/data-in.c

[Ben Pfaff]

Index: pspp/src/data-in.c
diff -u pspp/src/data-in.c:1.19 pspp/src/data-in.c:1.20
--- pspp/src/data-in.c:1.19     Mon May 16 07:33:16 2005
+++ pspp/src/data-in.c  Mon Jul 25 01:51:06 2005
@@ -212,9 +212,7 @@
       return false;
     }
   
-  if (have_char (i)
-      && (tolower (*i->s) == 'e' || tolower (*i->s) == 'd'
-         || (type == FMT_E && (*i->s == '+' || *i->s == '-'))))
+  if (have_char (i) && strchr ("eEdD-+", *i->s))
     {
       /* Get the exponent specified after the `e' or `E'.  */
       long exp;