Minor fixes for v1.0 release, mostly comments, add openrc init script
This commit is contained in:
@@ -31,6 +31,7 @@ use File::Basename qw (basename dirname);
|
||||
use File::Path qw (make_path);
|
||||
use Mojo::Log;
|
||||
use POSIX qw (setgid setuid setsid);
|
||||
|
||||
use Conf qw (LoadConf);
|
||||
use Craniac qw (RunCraniac);
|
||||
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
#!/usr/bin/perl
|
||||
# Наполняет отдельный "мозг" с бредом латинскими выражениями
|
||||
|
||||
use 5.018;
|
||||
use strict;
|
||||
@@ -10,7 +11,7 @@ use version; our $VERSION = qw (1.0);
|
||||
|
||||
my $workdir;
|
||||
|
||||
# before we run, change working dir
|
||||
# До фактического запуска логики программы, сменим рабочий каталог, чтобы подцепить либы
|
||||
BEGIN {
|
||||
use Cwd qw (chdir abs_path);
|
||||
my @CWD = split /\//xms, abs_path ($PROGRAM_NAME);
|
||||
|
||||
Reference in New Issue
Block a user