kalipso/racalmas
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lib/calcms/startup.pl: get include path from startup.pl directory

Browse Source
This commit is contained in:
Milan
2024-03-20 00:21:46 +01:00
parent bd869a5c91
commit 295faea68d
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lib/calcms/startup.pl
View File

@@ -1,5 +1,7 @@
use lib qw(/home/radio/calcms/calcms/); BEGIN {
use lib qw(/home/calcms/lib/calcms/); use File::Basename qw(dirname);
use lib dirname(__FILE__);
}
use Apache2::Log; use Apache2::Log;
local *CORE::GLOBAL::warn = \&Apache2::ServerRec::warn; local *CORE::GLOBAL::warn = \&Apache2::ServerRec::warn;
@@ -8,7 +10,6 @@ local $SIG{__WARN__} = \&Apache2::ServerRec::warn;
# see https://perl.apache.org/docs/2.0/api/Apache2/Log.html for details # see https://perl.apache.org/docs/2.0/api/Apache2/Log.html for details
use Data::Dumper; use Data::Dumper;
#use Apache::DBI();
use Time::Local(); use Time::Local();
use Date::Calc(); use Date::Calc();
use Calendar::Simple qw(date_span); use Calendar::Simple qw(date_span);