Ajout de . dans l'include path de perl

Core/Command_line_args.pm

@@ -172,10 +172,9 @@ sub prog_help
     -c <chan>,... join these chans after being connect to the irc server
     -d            enable the debug mode (more d means more debug)
     -h            display this help and exit
-    -l            DON'T start the logger \e[31mIN TEST\e[0m
-    -n <nick>     change bot nickname before running (default: ${Config::nick})
-    -o <owner>    change bot owner before running (default: ${Config::owner})
-    -s <suffix>   change bot nickname suffixe before running (default: ${Config::suffixe})
+    -n <nick>     change bot nickname before running (default: '${Config::nick}')
+    -o <owner>    change bot owner before running (default: '${Config::owner}')
+    -s <suffix>   change bot nickname suffixe before running (default: '${Config::suffixe}')
 HELP
 	
 	print $help;

Core/Config.pm

@@ -30,7 +30,7 @@ our $passwd = '';
 # Informations concernant le Bot :
 our $username = $nick; # En un seul mot...
 our $ircname  = $nick.' by TC';
-our $version  = '0.1.0';
+our $version  = '0.1.1';
 
 # Channel sur lequel on veut que le Bot aille dès la connexion :
 our $channel  = '#dynamiite_test';

bot.pl

@@ -16,6 +16,7 @@ BEGIN {
 	use Core::Config;
 	use Core::Getpass;
 	use Core::Logging;
+	unshift ".", @INC;
 	
 	# On vérifie qu'on n'a pas trop de droits
 	open ID, "id |" or die "Unable to run `id`\n";