- fix some warnings

diff --git a/docbot.pl b/docbot.pl
index ac1b3b09f391b876a151642c1d34612e4c7b9a80..6e6652eeedd1bf5fc00ce319b6eadcdad4305918 100755 (executable)
--- a/docbot.pl
+++ b/docbot.pl
@@ -1661,6 +1661,10 @@ sub is_a_channel {
 sub extract_channel {
     my $string = shift;
 
+    if (!defined($string)) {
+        return '';
+    }
+
     if (substr($string, 0, 1) eq '#') {
         return substr($string, 1);
     }