diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-07-07 03:17:57 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-07-07 03:17:57 -0500 |
commit | 0aad4a4babd33bc37a2db3a0c4451fe418c3446b (patch) | |
tree | 94db6ae4399613cbb1b3ad13e268ffcb53194ed1 | |
parent | 139f5e738a9546ae8b6a460da7bf0c473ff55296 (diff) | |
download | smartmatch-engine-rjbs-0aad4a4babd33bc37a2db3a0c4451fe418c3446b.tar.gz smartmatch-engine-rjbs-0aad4a4babd33bc37a2db3a0c4451fe418c3446b.zip |
check for IOK too
-rw-r--r-- | lib/smartmatch/engine/core.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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)) { |