From 0aad4a4babd33bc37a2db3a0c4451fe418c3446b Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 7 Jul 2011 03:17:57 -0500
Subject: check for IOK too

---
 lib/smartmatch/engine/core.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/smartmatch/engine/core.pm b/lib/smartmatch/engine/core.pm
index 00955d4..2c5d94c 100644
--- a/lib/smartmatch/engine/core.pm
+++ b/lib/smartmatch/engine/core.pm
@@ -35,7 +35,7 @@ sub type {
     else {
         my $b = B::svref_2object(\$thing);
         my $flags = $b->FLAGS;
-        if (($flags & B::SVf_NOK) && !($flags & B::SVf_POK)) {
+        if ($flags & (B::SVf_IOK | B::SVf_NOK)) {
             return 'Num';
         }
         elsif (looks_like_number($thing)) {
-- 
cgit v1.2.3