diff options
| -rw-r--r-- | lib/smartmatch/engine/core.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/smartmatch/engine/core.pm b/lib/smartmatch/engine/core.pm index 8edd7d6..ee3c81e 100644 --- a/lib/smartmatch/engine/core.pm +++ b/lib/smartmatch/engine/core.pm @@ -158,6 +158,8 @@ sub match { return $a->$overload($b, 0) if $overload; } + # XXX perlsyn currently has this undef case after the Num cases, but that's + # not how it's currently implemented if (type($a) eq 'undef') { return !defined($b); } |