diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-01-29 03:28:46 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-01-29 03:28:46 +0000 |
| commit | 108f07d5fa72f4ab678ea28646a6c1fd970c9276 (patch) | |
| tree | 08ef0d426c785db95f2697cac30ac8b772b3fbe3 | |
| parent | de127d565ca631b2903a5f1f034f70767abcee25 (diff) | |
| download | perl-Hal-Cdroms-108f07d5fa72f4ab678ea28646a6c1fd970c9276.tar perl-Hal-Cdroms-108f07d5fa72f4ab678ea28646a6c1fd970c9276.tar.gz perl-Hal-Cdroms-108f07d5fa72f4ab678ea28646a6c1fd970c9276.tar.bz2 perl-Hal-Cdroms-108f07d5fa72f4ab678ea28646a6c1fd970c9276.tar.xz perl-Hal-Cdroms-108f07d5fa72f4ab678ea28646a6c1fd970c9276.zip | |
(member) copy it from MDK::Common, needed for next commits
| -rw-r--r-- | lib/Hal/Cdroms.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Hal/Cdroms.pm b/lib/Hal/Cdroms.pm index 1a9f0f1..491bfa5 100644 --- a/lib/Hal/Cdroms.pm +++ b/lib/Hal/Cdroms.pm @@ -302,6 +302,8 @@ sub _reactor_shutdown { $reactor->add_timeout(1, Net::DBus::Callback->new(method => sub {})); } +sub member { my $e = shift; foreach (@_) { $e eq $_ and return 1 } 0 } + =head1 AUTHOR Pascal Rigaux <pixel@mandriva.com> |