X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=lib%2FPublicInbox%2FOnDestroy.pm;h=d9a6cd241becf48025f37f11389b94a4ee821396;hb=HEAD;hp=615bc450998beea1e82606db35c0d456450d966b;hpb=3894c29d99646fcd315ca6794b65e32547fcbae2;p=public-inbox.git
diff --git a/lib/PublicInbox/OnDestroy.pm b/lib/PublicInbox/OnDestroy.pm
index 615bc450..d9a6cd24 100644
--- a/lib/PublicInbox/OnDestroy.pm
+++ b/lib/PublicInbox/OnDestroy.pm
@@ -1,13 +1,16 @@
-# Copyright (C) 2020-2021 all contributors
+# Copyright (C) all contributors
# License: AGPL-3.0+
package PublicInbox::OnDestroy;
+use v5.12;
sub new {
shift; # ($class, $cb, @args)
bless [ @_ ], __PACKAGE__;
}
+sub cancel { @{$_[0]} = () }
+
sub DESTROY {
my ($cb, @args) = @{$_[0]};
if (!ref($cb) && $cb) {