Make DESTROY a no-op for Booleans
Project: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/repo Commit: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/commit/fbbc8599 Tree: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/tree/fbbc8599 Diff: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/diff/fbbc8599 Branch: refs/heads/master Commit: fbbc859956006b5b36e08ca18d8f612416ca1c3b Parents: 25b872f Author: Nick Wellnhofer <wellnho...@aevum.de> Authored: Thu Feb 23 15:02:07 2017 +0100 Committer: Nick Wellnhofer <wellnho...@aevum.de> Committed: Thu Feb 23 15:02:07 2017 +0100 ---------------------------------------------------------------------- runtime/perl/lib/Clownfish.pm | 1 + 1 file changed, 1 insertion(+) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/fbbc8599/runtime/perl/lib/Clownfish.pm ---------------------------------------------------------------------- diff --git a/runtime/perl/lib/Clownfish.pm b/runtime/perl/lib/Clownfish.pm index daca392..8873e4b 100644 --- a/runtime/perl/lib/Clownfish.pm +++ b/runtime/perl/lib/Clownfish.pm @@ -159,6 +159,7 @@ sub error {$Clownfish::Err::error} our @EXPORT_OK = qw( $true_singleton $false_singleton ); our $true_singleton = Clownfish::Boolean->singleton(1); our $false_singleton = Clownfish::Boolean->singleton(0); + sub DESTROY { } # leak all } 1;
