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, @_); }; #----------------------------------------------------------------------------