From e45f48f78a9bffe750753c09e8fb8f992b9d2fe5 Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Thu, 26 Jan 2012 07:27:06 +0000
Subject: on startup, join channels a little bit faster

---
 modules/services.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/modules/services.pl b/modules/services.pl
index 0a0c3d5..1306381 100644
--- a/modules/services.pl
+++ b/modules/services.pl
@@ -11,7 +11,7 @@ sub new
 
 sub doServices {
   my ($self, $conn, $event) = @_;
-  my $i = 5;
+  my $i = 1;
   if ($event->{from} eq 'NickServ!NickServ@services.')
   {
     print "NickServ: $event->{args}->[0]\n";
@@ -23,7 +23,7 @@ sub doServices {
     {
       foreach my $x ( @{$::settings->{autojoins}} ) {
         $conn->schedule($i, sub { $conn->join($x); });
-        $i = $i + 6;
+        $i = $i + 5;
       }
     }
     elsif ($event->{args}->[0] =~ /has been killed$/ )
-- 
cgit v1.2.3