From 3668620bd8abf42c8e94fd9caa6b4e0730ce0448 Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Mon, 2 Jan 2023 19:04:28 +0300
Subject: [PATCH] 1/5 Fix formatting in bin/aleesa-telegram

---
 bin/aleesa-telegram | 27 +++++++++++++--------------
 1 file changed, 13 insertions(+), 14 deletions(-)

diff --git a/bin/aleesa-telegram b/bin/aleesa-telegram
index 4f7551f..ea337a4 100755
--- a/bin/aleesa-telegram
+++ b/bin/aleesa-telegram
@@ -4,7 +4,7 @@ use 5.018; ## no critic (ProhibitImplicitImport)
 use strict;
 use warnings;
 use utf8;
-use open qw (:std :utf8);
+use open    qw (:std :utf8);
 use English qw ( -no_match_vars );
 
 use version; our $VERSION = qw (1.0);
@@ -24,28 +24,27 @@ BEGIN {
 	chdir $workdir;
 }
 
-use lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5");
+use lib                ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5");
 no Cwd;
-use Cwd::utf8 qw (chdir abs_path);
-use File::Basename qw (basename dirname);
-use File::Path qw (make_path);
-use File::Spec qw ();
-use Log::Any qw ($log);
-use Log::Any::Adapter ();
+use Cwd::utf8       qw (chdir abs_path);
+use File::Basename  qw (basename dirname);
+use File::Path      qw (make_path);
+use File::Spec      qw ();
+use Log::Any        qw ($log);
+use Log::Any::Adapter  ();
 use Log::Any::For::Std ();
-use POSIX qw (setgid setuid setsid);
-use BotLib::Conf qw (LoadConf);
-use TelegramBot qw (RunTelegramBot);
+use POSIX           qw (setgid setuid setsid);
+use BotLib::Conf    qw (LoadConf);
+use TelegramBot     qw (RunTelegramBot);
 
 sub daemonize;
 sub __fork;
 sub __signal_handler;
 
 local $OUTPUT_AUTOFLUSH = 1;
-my $runAsUid = $UID;
 
-my $piddir = '/var/run/' . basename (abs_path ($PROGRAM_NAME));
-my $C = LoadConf ();
+my $piddir   = '/var/run/' . basename (abs_path ($PROGRAM_NAME));
+my $C        = LoadConf ();
 my $loglevel = 'notice';
 
 if (defined $C->{'loglevel'}) {