Changeset 6303 for src/perl5

Timestamp:

08/17/05 17:47:04 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

8581

Message:

* Very obscure Perl5 bug reported by kolibrie:

$dbh.prepare

If $dbh.can('prepare') is true, this method call would pass through
iff the last bit of CODE pointer location is 1.

It's caused by rounding a POPi into a bool. ;)

Files:

• src/perl5/perl5.c (modified) (1 diff)

src/perl5/perl5.c

@@ -441 +441 @@
     SPAGAIN;
 
-    rv = POPi;
+    rv = (POPi != 0);
     /* printf("Checking: %s->can(%s), ret %d\n", SvPV_nolen(inv), subname, rv); */