From 81f6c225766b582dfbf48efe35c1e9a7fd23ee6b Mon Sep 17 00:00:00 2001
From: "psychoticwolf%carolina.rr.com"
 <psychoticwolf%carolina.rr.com@18797224-902f-48f8-a5cc-f745e15eee43>
Date: Tue, 18 Jan 2011 03:19:04 +0000
Subject: [PATCH] Bug 538396 - Net::IRC 0.76 and higher crash (strict refs) in
 Net::IRC::Event.pm on line 73. rs=Wolf.

git-svn-id: svn://10.0.0.236/trunk@261768 18797224-902f-48f8-a5cc-f745e15eee43
---
 mozilla/webtools/mozbot/mozbot.pl | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/mozilla/webtools/mozbot/mozbot.pl b/mozilla/webtools/mozbot/mozbot.pl
index f2f4576b10c..429562e8d12 100755
--- a/mozilla/webtools/mozbot/mozbot.pl
+++ b/mozilla/webtools/mozbot/mozbot.pl
@@ -302,12 +302,11 @@ my %authenticatedUsers; # hash of user@hostname=>users who have authenticated
 
 sub setEventArgs {
     my $event = shift;
-    if ($Net::IRC::VERSION == 0.75) {
-        # curses. This version of Net::IRC is broken. Work around
-        # it here.
-        return $event->args(\@_);
-    } else {
+	#Net::IRC 0.75 and higher requires array refs for Event::Args.
+    if ($Net::IRC::VERSION < 0.75) {
         return $event->args(@_);
+    } else {
+        return $event->args(\@_);
     }
 }