From 10f2cda8473533cf18ef83ba2ab1d8926a1fe0f9 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 17 Jun 2010 11:31:31 -0700
Subject: [PATCH] Change purge from override to around.

---
 lib/WebGUI/Role/Asset/Subscribable.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Role/Asset/Subscribable.pm b/lib/WebGUI/Role/Asset/Subscribable.pm
index 4b48bafa1..bf8ca5306 100644
--- a/lib/WebGUI/Role/Asset/Subscribable.pm
+++ b/lib/WebGUI/Role/Asset/Subscribable.pm
@@ -422,14 +422,14 @@ Subclass the method to remove the subscription group.
 
 =cut
 
-override purge => sub {
+around purge => sub {
+    my $orig    = shift;
     my $self    = shift;
     my $options = shift;
 
     my $group   = $self->getSubscriptionGroup();
     $group->delete if $group;
-
-    return super();
+    return $self->$orig($options, @_);
 };
 
 #----------------------------------------------------------------------------