From f59f8a80c4facf5bea2b939eee64b78f98a3a7da Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 12 Mar 2012 10:09:03 -0700
Subject: [PATCH] Fix a bad class name when trying to catch exceptions.

---
 lib/WebGUI/Workflow/Activity/ArchiveOldThreads.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Workflow/Activity/ArchiveOldThreads.pm b/lib/WebGUI/Workflow/Activity/ArchiveOldThreads.pm
index 5c23ca5fa..4e64a0d31 100644
--- a/lib/WebGUI/Workflow/Activity/ArchiveOldThreads.pm
+++ b/lib/WebGUI/Workflow/Activity/ArchiveOldThreads.pm
@@ -90,7 +90,7 @@ sub execute {
         my $b = $session->db->read($sql,[$archiveDate, $cs->lineage.'%']);
         THREAD: while (my ($id, $version) = $b->array) {
             my $thread = eval { WebGUI::Asset->newById($session, $id, $version); };
-            if (WebGUI::Exception->caught()) {
+            if (Exception::Class->caught()) {
                 $session->log->error("Unable to instanciate Thread: $@");
                 next THREAD;
             }