errors with the "rc AI" console command

[sofax222]

I use the openkore SVN to run on FreeBSD.
To start the openkore.pl is fine. But.....

When I edit the AI.pm code file, and use the "rc AI" console command to reload AI modules.
I got the following errors:

.....
Unable to reload code: not found
.....
Checking src/Task/RaiseSkill.pm for errors...
Bareword "Settings::getConfigFilename" not allowed while "strict subs" in use at /u/admin/openkore/src/Task/Raise.pm line 104.
Compilation failed in require at (eval 1) line 3.
...propagated at /usr/local/lib/perl5/5.8.9/base.pm line 93.
BEGIN failed--compilation aborted at src/Task/RaiseSkill.pm line 22.
RaiseSkill.pm contains syntax errors.
.....
Checking src/Task/RaiseStat.pm for errors...
Bareword "Settings::getConfigFilename" not allowed while "strict subs" in use at /u/admin/openkore/src/Task/Raise.pm line 104.
Compilation failed in require at (eval 1) line 3.
...propagated at /usr/local/lib/perl5/5.8.9/base.pm line 93.
BEGIN failed--compilation aborted at src/Task/RaiseStat.pm line 22.
RaiseStat.pm contains syntax errors.
.....
Checking src/Task/Raise.pm for errors...
Bareword "Settings::getConfigFilename" not allowed while "strict subs" in use at src/Task/Raise.pm line 104.
src/Task/Raise.pm had compilation errors.
Raise.pm contains syntax errors.
.....

So, I change some codes the files of /openkore.pl and /src/Task/Raise.pm such as:
The /openkore.pl file:
Original code:

Code: Select all

86	Modules::register(qw/Utils FileParsers
87		Network::Receive Network::Send Misc AI AI::CoreLogic
88		AI::Attack AI::Homunculus
89		ChatQueue Actor Actor::Player Actor::Monster Actor::You
90		Actor::Party Actor::Unknown Actor::Item Match Utils::Benchmark/);

New code (change in line 88):

Code: Select all

86	Modules::register(qw/Utils FileParsers
87		Network::Receive Network::Send Misc AI AI::CoreLogic
88		AI::Attack AI::Slave AI::Slave::Homunculus
89		ChatQueue Actor Actor::Player Actor::Monster Actor::You
90		Actor::Party Actor::Unknown Actor::Item Match Utils::Benchmark/);

The /src/Task/Raise.pm file:
Original code:

Code: Select all

19	use strict;
20	
21	use base 'Task';
22	
23	use Carp::Assert;
24	use Modules 'register';
25	use Globals qw(%config $net $char $messageSender);
26	use Log qw(message debug error);
27	use Translation qw(T TF);

New code (add 2 lines):

Code: Select all

19	use strict;
20	
21	use base 'Task';
22
23	use Settings;
24	use Network;
25	use Carp::Assert;
26	use Modules 'register';
27	use Globals qw(%config $net $char $messageSender);
28	use Log qw(message debug error);
29	use Translation qw(T TF);

[EternalHarvest]

Accepted in r7581.