From b48e77a4b368f886ab3a578f74b44085fdb4a250 Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Sun, 27 Feb 2011 20:26:37 -0700
Subject: [PATCH] Trigger on_shutdown in the event of a fatal error.

---
 lib/API/Std.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/API/Std.pm b/lib/API/Std.pm
index 3dc4854..2ce1725 100644
--- a/lib/API/Std.pm
+++ b/lib/API/Std.pm
@@ -485,7 +485,10 @@ sub err ## no critic qw(Subroutines::ProhibitBuiltinHomonyms)
     }
 
     # If it's a fatal error, exit the program.
-    if ($fatal) { exit; }
+    if ($fatal) {
+        API::Std::event_run('on_shutdown');
+        exit; 
+    }
 
     return 1;
 }