Bug fix: err() fatal errors now work. They didn't work due to bad regex.

bin/auto

@@ -92,7 +92,8 @@ foreach my $REQCVAL (@REQCVALS) {
 		if ($REQCVAL eq "expire_logs") {
 			$err = 1;
 		}
-		err($err, "Missing required configuration value: $REQCVAL", 1);
+		print "Failed.\n";
+		err($err, "Missing required configuration value: $REQCVAL", 1) or print ".\n" and exit;
 	}
 }
 undef @REQCVALS;

doc/CHANGELOG

@@ -3,6 +3,8 @@ Auto IRC Bot 3.0: Change Log
 
 3.0 Indev
 ==================================================================
+    * Bug fix: err() fatal errors now work. They didn't work
+      due to bad regex.
     * Added an installation script.
     * Fork into the background if not in debug mode.
     * Begin on API::IRC.

src/API/Std.pm

@@ -111,7 +111,7 @@ sub err
 	if ($lvl =~ m/[^0-9]/) {
 		return 0;
 	}
-	if ($fatal =~ m/(^0|1)/) {
+	if ($fatal =~ m/[^0-1]/) {
 		return 0;
 	}