diff options
-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)) { |