diff options
| author | Angelo Naselli <anaselli@linux.it> | 2014-07-05 12:49:26 +0200 |
|---|---|---|
| committer | Angelo Naselli <anaselli@linux.it> | 2014-07-05 12:49:26 +0200 |
| commit | 4040b475c5b825c6ee549c96fab5fbf2b3229817 (patch) | |
| tree | db4947fb9095e3b2511a4b68a3a6067cb95102da /lib/AdminPanel/Shared.pm | |
| parent | 58463cc72da8711c22e01086281be4b544b696f1 (diff) | |
| download | colin-keep-4040b475c5b825c6ee549c96fab5fbf2b3229817.tar colin-keep-4040b475c5b825c6ee549c96fab5fbf2b3229817.tar.gz colin-keep-4040b475c5b825c6ee549c96fab5fbf2b3229817.tar.bz2 colin-keep-4040b475c5b825c6ee549c96fab5fbf2b3229817.tar.xz colin-keep-4040b475c5b825c6ee549c96fab5fbf2b3229817.zip | |
Removed member from Shared (usning MDK::Common::DataStructure one)
Diffstat (limited to 'lib/AdminPanel/Shared.pm')
| -rw-r--r-- | lib/AdminPanel/Shared.pm | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/lib/AdminPanel/Shared.pm b/lib/AdminPanel/Shared.pm index 7963d47..f435c6a 100644 --- a/lib/AdminPanel/Shared.pm +++ b/lib/AdminPanel/Shared.pm @@ -84,7 +84,6 @@ use base qw(Exporter); # TODO move GUI dialogs to Shared::GUI our @EXPORT = qw( trim - member md5sum pathList2hash ); @@ -127,33 +126,7 @@ sub trim { return $st; } -#============================================================= - -=head2 member - -=head3 INPUT - - $e: Array element to be found into array - @_: any array - -=head3 OUTPUT - - 1 or 0: if $e is a member of the given array -=head3 DESCRIPTION - -This function look for an element into an array - -=cut - -#============================================================= -sub member { - my $e = shift; - foreach (@_) { - $e eq $_ and return 1; - } - 0; -} #============================================================= |