From 6d290219a68e2aff22873ec3cb9ceac1b9407311 Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Tue, 25 Jun 2019 16:19:36 +0200
Subject: Fix token regex

---
 lib/TgLib.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
 }
 
-- 
cgit v1.2.3