diff -bu ./t/row/numifyget.t~ ./t/row/numifyget.t
--- ./t/row/numifyget.t~	2013-07-02 20:40:24.000000000 -0500
+++ ./t/row/numifyget.t	2013-07-25 10:01:23.852572001 -0500
@@ -19,9 +19,9 @@
    my $value = shift;
    my $b_obj = B::svref_2object(\$value);
    my $flags = $b_obj->FLAGS;
-   return ( $flags & B::SVf_IOK or $flags & B::SVp_IOK
+   return (( $flags & B::SVf_IOK or $flags & B::SVp_IOK
           or $flags & B::SVf_NOK or $flags & B::SVp_NOK
-        ) and !($flags & B::SVf_POK )
+           ) and !($flags & B::SVf_POK ))
 }
 
 ok(is_numeric($schema->resultset('Foo')->first->bar_id),"bar_id has been 'numified' w/o is_numeric set");