X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FIRC%2FSchedulers.pl;h=5ec9b53c1d99117392da1bc30b8a0426a1694f2c;hb=1973e390a4358241bd0480bfdca31c92e6b268c4;hp=9c155c40d7b2a275f0558e436c5bbbffd0565c2d;hpb=d068359b1ef72323d926b5a11dc2fcb0180cf969;p=infobot.git diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl index 9c155c4..5ec9b53 100644 --- a/src/IRC/Schedulers.pl +++ b/src/IRC/Schedulers.pl @@ -856,14 +856,14 @@ sub uptimeLoop { sub slashdotLoop { if (@_) { - &ScheduleThis(60, "slashdotLoop"); + &ScheduleThis(60, 'slashdotLoop'); return if ($_[0] eq "2"); } - my @chans = &ChanConfList("slashdotAnnounce"); + my @chans = &ChanConfList('slashdotAnnounce'); return unless (scalar @chans); - &Forker("slashdot", sub { + &Forker('slashdot', sub { my $line = &Slashdot::slashdotAnnounce(); return unless (defined $line); @@ -879,14 +879,14 @@ sub slashdotLoop { sub plugLoop { if (@_) { - &ScheduleThis(60, "plugLoop"); + &ScheduleThis(60, 'plugLoop'); return if ($_[0] eq "2"); } - my @chans = &ChanConfList("plugAnnounce"); + my @chans = &ChanConfList('plugAnnounce'); return unless (scalar @chans); - &Forker("plug", sub { + &Forker('Plug', sub { my $line = &Plug::plugAnnounce(); return unless (defined $line);