summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2011-07-07 09:11:48 -0500
committerJesse Luehrs <doy@tozt.net>2011-07-07 09:11:48 -0500
commit8a2d38913277e00d20ca3cb0f46d64c72e167f1e (patch)
treecee531dce0c8ec55af42baa005c93ee7e62b178b
parent9992481c4477bc9855f79b6c252c236bf2e88ca6 (diff)
downloadsmartmatch-engine-rjbs-8a2d38913277e00d20ca3cb0f46d64c72e167f1e.tar.gz
smartmatch-engine-rjbs-8a2d38913277e00d20ca3cb0f46d64c72e167f1e.zip
comment
-rw-r--r--lib/smartmatch/engine/core.pm2
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);
}