From a79d39cd43b59afc13543365c730f90150b4ec0e Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 7 Jul 2011 23:59:59 -0500
Subject: regex overload is called 'qr', not '=~'

---
 lib/smartmatch/engine/rjbs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/smartmatch/engine/rjbs.pm b/lib/smartmatch/engine/rjbs.pm
index cf5aa91..da40998 100644
--- a/lib/smartmatch/engine/rjbs.pm
+++ b/lib/smartmatch/engine/rjbs.pm
@@ -21,7 +21,7 @@ sub type {
         if (overload::Method($thing, '~~')) {
             return 'Overloaded';
         }
-        elsif (overload::Method($thing, '=~')) {
+        elsif (overload::Method($thing, 'qr')) {
             return 'Regex';
         }
         else {
-- 
cgit v1.2.3