From dd13dba42c7f6d27a540edb96e11d8172f17bcad Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 4 May 2020 17:14:40 +0200 Subject: document member() - needed for next commit also explain from where it came --- lib/Hal/Cdroms.pm | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lib/Hal/Cdroms.pm b/lib/Hal/Cdroms.pm index a4e0b65..aac8d72 100644 --- a/lib/Hal/Cdroms.pm +++ b/lib/Hal/Cdroms.pm @@ -275,6 +275,13 @@ sub _reactor_wait { $found_val; } +=head2 member(SCALAR, LIST) + +is the value in the list? + +=cut + +# From MDK::Common::DataStructure : sub member { my $e = shift; foreach (@_) { $e eq $_ and return 1 } 0 } =head1 AUTHOR -- cgit v1.2.1