Change purge from override to around.

This commit is contained in:
Colin Kuskie 2010-06-17 11:31:31 -07:00
parent 52fe958e1f
commit 10f2cda847

View file

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