From 95419d212d21beaa84d1670ccca7c0a7b50839ae Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Sun, 16 Jan 2011 23:44:20 -0700
Subject: [PATCH] Added option for a fatal error.

---
 src/API/Std.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/API/Std.pm b/src/API/Std.pm
index cb909d2..1bf660b 100644
--- a/src/API/Std.pm
+++ b/src/API/Std.pm
@@ -90,12 +90,15 @@ sub trans
 # Error subroutine.
 sub err
 {
-	my ($lvl, $msg) = @_;
+	my ($lvl, $msg, $fatal) = @_;
 	
 	# Check for an invalid level.
 	if ($lvl =~ m/[^0-9]/) {
 		return 0;
 	}
+	if ($fatal =~ m/(^0|1)/) {
+		return 0;
+	}
 	
 	# Level 1: Print to screen.
 	if ($lvl => 1) {
@@ -105,6 +108,11 @@ sub err
 	if ($lvl => 2) {
 		API::Log::alog("ERROR: $msg");
 	}
+	
+	# If it's a fatal error, exit the program.
+	if ($fatal) {
+		exit;
+	}
 }
 
 1;