* Module names are now case sensitive.

* Added config option module for auto-loading a module.

bin/auto

@@ -166,6 +166,13 @@ else {
     $APID = $$;
 }
 
+# Load modules.
+alog "* Loading modules...";
+dbug "* Loading modules...";
+foreach (@{ (conf_get("module"))[0] }) {
+	mod_load($_);
+}
+
 ## Create sockets.
 alog "* Connecting to servers...";
 dbug "* Connecting to servers...";
@@ -280,8 +287,8 @@ sub socksnd
 sub mod_load {
     my ($module) = @_;
     
-    if (-e "$Bin/../modules/".lc($module).".pm") {
+    if (-e "$Bin/../modules/".$module.".pm") {
-        do "$Bin/../modules/".lc($module).".pm" and return 1 or print $@ and return 0;
+        do "$Bin/../modules/".$module.".pm" and return 1 or print $@ and return 0;
     }
     else {
         return 0;

doc/CHANGELOG

@@ -3,6 +3,8 @@ Auto IRC Bot 3.0: Change Log
 
 3.0 Indev
 ==================================================================
+    * Module names are now case sensitive.
+    * Added config option module for auto-loading a module.
     * Fixed a bug in API::Log that caused invalid months.
     * Changed how command data is passed to fix a bug.
     * Removed dependency Async.

src/Parser/Lang.pm

@@ -23,9 +23,9 @@ sub parse
 	}
 	
 	# Open, read and close the file.
-	open ALF, "<$Auto::Bin/../lang/$lang.alf" or return 0;
+	open(my $FALF, q{<}, "$Auto::Bin/../lang/$lang.alf") or return 0;
-	my @fbuf = <ALF>;
+	my @fbuf = <$FALF>;
-	close ALF;
+	close $FALF;
 	
 	# Iterate the file buffer.
 	foreach my $buff (@fbuf) {