Fix a bad class name when trying to catch exceptions.

perlDreamer · perlDreamer · commit f59f8a80c4fa · 2012-03-12T10:09:03.000-07:00
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;
             }

Original file line number	Diff line number	Diff line change
`@@ -90,7 +90,7 @@ sub execute {`
`90`	`90`	`my $b = $session->db->read($sql,[$archiveDate, $cs->lineage.'%']);`
`91`	`91`	`THREAD: while (my ($id, $version) = $b->array) {`
`92`	`92`	`my $thread = eval { WebGUI::Asset->newById($session, $id, $version); };`
`93`		`- if (WebGUI::Exception->caught()) {`
	`93`	`+ if (Exception::Class->caught()) {`
`94`	`94`	`$session->log->error("Unable to instanciate Thread: $@");`
`95`	`95`	`next THREAD;`
`96`	`96`	`}`