Change purge from override to around.

plainblack · Jun 17, 2010 · 10f2cda · 10f2cda
1 parent 52fe958
commit 10f2cda
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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, @_);
 };
 
 #----------------------------------------------------------------------------