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-engine-core-8a2d38913277e00d20ca3cb0f46d64c72e167f1e.tar.gz smartmatch-engine-core-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); } |