diff --git a/bin/auto b/bin/auto index 4c3399b..6b96eb9 100755 --- a/bin/auto +++ b/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; diff --git a/doc/CHANGELOG b/doc/CHANGELOG index 5e6feec..f028a4d 100644 --- a/doc/CHANGELOG +++ b/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. diff --git a/src/API/Std.pm b/src/API/Std.pm index 38c4675..68c22f6 100644 --- a/src/API/Std.pm +++ b/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; }