diff options
| author | Reinhard Kotucha <reinhard.kotucha@web.de> | 2011-05-08 00:12:42 +0000 |
|---|---|---|
| committer | Reinhard Kotucha <reinhard.kotucha@web.de> | 2011-05-08 00:12:42 +0000 |
| commit | a572e45edd6d2574836a9a2ae49a4e55f2d1161d (patch) | |
| tree | 9e45c6a426efffcb24bfbbb7b2422289e9a55804 /Master/tlpkg/TeXLive | |
| parent | 6a1f00f97b373b7d8de2640c73172e14d7a89c99 (diff) | |
tlpkg/TeXLive/TLUtils.pm: member() now uses grep()
git-svn-id: svn://tug.org/texlive/trunk@22350 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 4f0362f163a..3fb87a0759b 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -2865,14 +2865,8 @@ in the list of the remaining arguments. =cut sub member { - my ($e, @l) = @_; - my ($f); - foreach $f (@l) { - if ($e eq $f) { - return 1; - } - } - return 0; + my $what = shift; + return scalar grep($_ eq $what, @_); } |