Changeset 56e72d5 for perl/modules/IRC/lib/BarnOwl/Module/IRC.pm

Timestamp:

Jan 13, 2008, 6:08:14 PM (17 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

1fd5041b

Parents:

05f0061

Message:

Kill a uninitialized warning

File:

• perl/modules/IRC/lib/BarnOwl/Module/IRC.pm (modified) (3 diffs)

perl/modules/IRC/lib/BarnOwl/Module/IRC.pm

@@ -104 +104 @@
     BarnOwl::new_command('irc-names'      => \&cmd_names);
     BarnOwl::new_command('irc-whois'      => \&cmd_whois);
+    BarnOwl::new_command('irc-motd'       => \&cmd_motd);
 }
 
@@ -245 +246 @@
 }
 
+sub cmd_motd {
+    my $cmd = shift;
+    my $conn = get_connection(\@_);
+    $conn->motd;
+}
+
 ################################################################################
 ########################### Utilities/Helpers ##################################
@@ -256 +263 @@
     }
     my $channel = $args->[-1];
-    if ($channel =~ /^#/ and $channels{$channel} and @{$channels{$channel}} == 1) {
+    if (defined($channel) && $channel =~ /^#/
+        and $channels{$channel} and @{$channels{$channel}} == 1) {
         return $channels{$channel}[0];
     }