From 9a507994b3e9fe6418d9ed0ff3a983eb9fa9920e Mon Sep 17 00:00:00 2001
From: Carl Masak <cmasak@gmail.com>
Date: Sun, 6 Dec 2009 00:03:35 +0100
Subject: [PATCH] [roles] fixed spelling error, smartmatch thinko

---
 src/roles.pod | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/roles.pod b/src/roles.pod
index 97f5ca3..d562562 100644
--- a/src/roles.pod
+++ b/src/roles.pod
@@ -29,7 +29,7 @@ into a class at compile time or mixed in per-object at runtime.
                 return $<nick> ~ " has karma $karma";
             }
             else {
-                return $<nick> ~ " has neutrel karma";
+                return $<nick> ~ " has neutral karma";
             }
         }
         multi method on-message($sender, $msg where /<nick> '++'/) {
@@ -43,12 +43,12 @@ into a class at compile time or mixed in per-object at runtime.
     role OpBot {
         has @!whoz-op;
         multi method on-join($nick) {
-            if $nick ~~ @!whoz-op {
+            if $nick eq any(@!whoz-op) {
                 return "/mode +o $nick";
             }
         }
         multi method on-message($sender, $msg where /^trust <ws> <nick>/) {
-            if $sender ~~ @!whoz-op {
+            if $sender eq any(@!whoz-op) {
                 push @!whoz-op, $<nick>;
                 return "I now trust " ~ $<nick>;
             }