From 8a2d38913277e00d20ca3cb0f46d64c72e167f1e Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 7 Jul 2011 09:11:48 -0500
Subject: comment

---
 lib/smartmatch/engine/core.pm | 2 ++
 1 file changed, 2 insertions(+)

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);
     }
-- 
cgit v1.2.3