From b462ce0b41654890b740cd02062c68e325d91028 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 1 Mar 2010 08:30:17 -0800
Subject: [PATCH] Subscribable aspect should propagate result of purge, instead
 of always returning false.  Fixes bug #11446

---
 docs/changelog/7.x.x.txt               | 1 +
 lib/WebGUI/AssetAspect/Subscribable.pm | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 7fa4661c1..c38053ef4 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -1,6 +1,7 @@
 7.9.0
  - added: Optimized macro parser for perl 5.10
  - fixed #11445: NotifyAboutUsers sends infinite e-mails
+ - fixed #11446: Delete a wiki
 
 7.8.13
  - fixed #11418: confusing typ-o in gotcha
diff --git a/lib/WebGUI/AssetAspect/Subscribable.pm b/lib/WebGUI/AssetAspect/Subscribable.pm
index 7ed94f1ef..6614065d5 100644
--- a/lib/WebGUI/AssetAspect/Subscribable.pm
+++ b/lib/WebGUI/AssetAspect/Subscribable.pm
@@ -429,9 +429,9 @@ sub purge {
 
     my $group   = $self->getSubscriptionGroup();
     $group->delete;
-    $self->next::method($options);
+    my $success = $self->next::method($options);
 
-    return;
+    return $success;
 }
 
 #----------------------------------------------------------------------------