diff options
author | Guillermo Ramos | 2020-05-15 19:51:14 +0200 |
---|---|---|
committer | Guillermo Ramos | 2020-05-15 19:51:14 +0200 |
commit | 0deb9dbd3897e81fb0b7287af9b8322e0d5e5263 (patch) | |
tree | 25e70e63f6babc0fbd06e05da120aac56aa7c0a6 | |
parent | 024b3bf0d48326043682d8b8b4aa6caf8b69d9ae (diff) | |
download | tgutils-0deb9dbd3897e81fb0b7287af9b8322e0d5e5263.tar.gz |
Why the space in [level ]? No reason.
-rw-r--r-- | lib/TgLib/Logger.pm | 2 | ||||
-rwxr-xr-x | tgserver | 2 |
2 files changed, 3 insertions, 1 deletions
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'}; } ################################################################################ @@ -2,6 +2,8 @@ # # Author: Guillermo Ramos <gramos@gramos.me> (2019) # +# Dependencies: Try-Tiny, HTTP-Message, libwww-perl +# # Run `tgserver -h` for quick help, or `tgserver -h -v` for full manual. ################################################################################ |