Fix token regex

1 files changed, 1 insertions, 1 deletions

diff --git a/lib/TgLib.pm b/lib/TgLib.pm
index 192d28a..c87af30 100644
--- a/lib/TgLib.pm
+++ b/lib/TgLib.pm
@@ -13,7 +13,7 @@ sub fetch_token {
         chomp $token;
         close $cfg;
     }
-    $token =~ /^[0-9]+:[a-zA-Z0-9]+$/ or die "Invalid bot token ($token)";
+    $token =~ /^[0-9]+:[a-zA-Z0-9_]+$/ or die "Invalid bot token ($token)";
     return $token;
 }