From 943ae9f25962f466d425edb12af4188ac998056b Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 9 Apr 2010 11:19:13 -0700
Subject: [PATCH] Only delete a group if it exists.

---
 lib/WebGUI/Role/Asset/Subscribable.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Role/Asset/Subscribable.pm b/lib/WebGUI/Role/Asset/Subscribable.pm
index a47d2b171..18314e34c 100644
--- a/lib/WebGUI/Role/Asset/Subscribable.pm
+++ b/lib/WebGUI/Role/Asset/Subscribable.pm
@@ -433,7 +433,7 @@ override purge => sub {
     my $options = shift;
 
     my $group   = $self->getSubscriptionGroup();
-    $group->delete;
+    $group->delete if $group;
     super();
 
     return;