Commits

Shlomi Fish committed 3060146

Fix some bugs.

  • Participants
  • Parent commits a8cec03

Comments (0)

Files changed (1)

         # it here.
         return $event->args(\@_);
     } else {
-        return $event->args(@_);
+        return $event->args(\@_);
     }
 }
 
                 foreach my $module (@modulesInThisLoop) {
                     my $currentResponse;
                     eval {
-                        $currentResponse = $module->do($self, $event, $type, $e);
+                        $currentResponse = $module->mydo($self, $event, $type, $e);
                     };
                     if ($@) {
                         # $@ contains the error
 }
 
 
-# perform - called to perform/do anything (duh) 
-# (no, do, not duh) (oh, ok, sorry)
-sub perform {
+# mydo - called to do anything (duh) (no, do, not duh) (oh, ok, sorry)
+# We'd rather not call it "do" because Perl has a "do { ... }" keyword.
+sub mydo {
     my $self = shift;
     my ($bot, $event, $type, $e) = @_;
     # first, we check that the user is not banned from using this module. If he