From 0deb9dbd3897e81fb0b7287af9b8322e0d5e5263 Mon Sep 17 00:00:00 2001 From: Guillermo Ramos Date: Fri, 15 May 2020 19:51:14 +0200 Subject: Why the space in [level ]? No reason. --- lib/TgLib/Logger.pm | 2 +- tgserver | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/TgLib/Logger.pm b/lib/TgLib/Logger.pm index f2e9c54..a504ec6 100644 --- a/lib/TgLib/Logger.pm +++ b/lib/TgLib/Logger.pm @@ -12,7 +12,7 @@ my %level = (warn => 0, info => 1, debug => 2); sub log_level { my ($self, $msg, $level) = @_; my $date = strftime "%F %X", localtime; - print STDERR "[$level ] $date: $msg" if $level{$level} <= $self->{'level'}; + print STDERR "[$level] $date: $msg" if $level{$level} <= $self->{'level'}; } ################################################################################ diff --git a/tgserver b/tgserver index 73c68ac..edb6d75 100755 --- a/tgserver +++ b/tgserver @@ -2,6 +2,8 @@ # # Author: Guillermo Ramos (2019) # +# Dependencies: Try-Tiny, HTTP-Message, libwww-perl +# # Run `tgserver -h` for quick help, or `tgserver -h -v` for full manual. ################################################################################ -- cgit v1.2.3