diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-07-07 09:11:48 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-07-07 09:11:48 -0500 |
commit | 8a2d38913277e00d20ca3cb0f46d64c72e167f1e (patch) | |
tree | cee531dce0c8ec55af42baa005c93ee7e62b178b | |
parent | 9992481c4477bc9855f79b6c252c236bf2e88ca6 (diff) | |
download | smartmatch-8a2d38913277e00d20ca3cb0f46d64c72e167f1e.tar.gz smartmatch-8a2d38913277e00d20ca3cb0f46d64c72e167f1e.zip |
comment
-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); } |