From 0f27f27d68ac38719e36fd62c8beeab0dc70930f Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Thu, 21 May 2009 14:49:14 +0000
Subject: [PATCH] allow exception objects to pass through pluggable

---
 lib/WebGUI/Pluggable.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib/WebGUI/Pluggable.pm b/lib/WebGUI/Pluggable.pm
index 9b82fd856..22802dab8 100644
--- a/lib/WebGUI/Pluggable.pm
+++ b/lib/WebGUI/Pluggable.pm
@@ -195,6 +195,9 @@ sub instanciate {
     }
     my $object;
     if (! eval{$object = $module->$sub(@{$params}); 1}) {
+        if ( ref $@ ) {
+            die $@;
+        }
         croak "Could not instanciate object using $sub on $module because $@";
     }
     if (defined $object) {