cvsuser 03/12/10 23:06:16
Modified: classes iterator.pmc
Log:
Fix for premature termination of t/pmc/key_2 under Fedora Core 1
Revision Changes Path
1.14 +2 -2 parrot/classes/iterator.pmc
Index: iterator.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/iterator.pmc,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -w -r1.13 -r1.14
--- iterator.pmc 28 Aug 2003 14:56:46 -0000 1.13
+++ iterator.pmc 11 Dec 2003 07:06:16 -0000 1.14
@@ -1,7 +1,7 @@
/* Iterator.pmc
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: iterator.pmc,v 1.13 2003/08/28 14:56:46 leo Exp $
+ * $Id: iterator.pmc,v 1.14 2003/12/11 07:06:16 petergibbs Exp $
* Overview:
* These are the vtable functions for the Iterator base class
* Data Structure and Algorithms:
@@ -75,7 +75,7 @@
INTVAL get_bool () {
PMC *key = SELF->cache.struct_val;
- return key && key->cache.int_val >= 0;
+ return key && key->cache.int_val != -1;
}
INTVAL elements () {
