SOURCES: tuxaator-perl.patch (NEW) - perl fix

[glen]

Author: glen                         Date: Fri Sep 16 20:42:42 2005 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- perl fix

---- Files affected:
SOURCES:
   tuxaator-perl.patch (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: SOURCES/tuxaator-perl.patch
diff -u /dev/null SOURCES/tuxaator-perl.patch:1.1
--- /dev/null	Fri Sep 16 22:42:42 2005
+++ SOURCES/tuxaator-perl.patch	Fri Sep 16 22:42:37 2005
@@ -0,0 +1,11 @@
+--- ./BotCore.pm~	2005-07-18 21:17:25.000000000 +0300
++++ ./BotCore.pm	2005-07-19 02:26:43.000000000 +0300
+@@ -190,7 +190,7 @@
+ 			print "$handler ";
+ 			# add a pointer to the module
+ 			$handlers{$handler}->{'id'} = $id;
+-			$self->register_msg_handler($handler,%handlers->{$handler});
++			$self->register_msg_handler($handler, $handlers{$handler});
+ 		};
+ 	};
+ 	# we need to store the command names somewhere
================================================================