--- modules/damieng/clean_xml/post_xml.pm	2015/05/01 20:32:24	1.3
+++ modules/damieng/clean_xml/post_xml.pm	2015/05/22 19:50:46	1.4
@@ -2516,6 +2516,7 @@ sub trim {
 ##
 sub string_in_array {
   my ($array, $value) = @_;
+  # NOTE: would it be faster to use "any { $value eq $_ } @{$array}" from List::Util ?
   foreach my $v (@{$array}) {
     if ($v eq $value) {
       return 1;