Fix a bad class name when trying to catch exceptions.

plainblack · Mar 12, 2012 · f59f8a8 · f59f8a8
1 parent 5ad34a9
commit f59f8a8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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;
             }