cvsuser 04/08/16 02:13:02
Modified: src string.c
Log:
Always test compile to catch typos.
Revision Changes Path
1.218 +2 -2 parrot/src/string.c
Index: string.c
===================================================================
RCS file: /cvs/public/parrot/src/string.c,v
retrieving revision 1.217
retrieving revision 1.218
diff -u -w -r1.217 -r1.218
--- string.c 16 Aug 2004 09:11:02 -0000 1.217
+++ string.c 16 Aug 2004 09:13:01 -0000 1.218
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: string.c,v 1.217 2004/08/16 09:11:02 jhi Exp $
+$Id: string.c,v 1.218 2004/08/16 09:13:01 jhi Exp $
=head1 NAME
@@ -2530,7 +2530,7 @@
* XXX would strtod() be better for detecting malformed input?
*/
char *cstr = string_to_cstring(interpreter, const_cast(s));
- char *p = cstrs;
+ char *p = cstr;
while (isspace(*p)) p++;
f = atof(p);
/* Not all atof()s return -0 from "-0" */
