eml: favor index() over regexp match

[public-inbox.git] / lib / PublicInbox / Eml.pm

diff --git a/lib/PublicInbox/Eml.pm b/lib/PublicInbox/Eml.pm
index 462d51fc0cbcd118770abc2ba8bbe0af9fea1008..bd27f19b0eba0322729fea031d55577b0f1b0dd4 100644 (file)
--- a/lib/PublicInbox/Eml.pm
+++ b/lib/PublicInbox/Eml.pm
@@ -217,7 +217,7 @@ sub mp_descend ($$) {
                # There's also a case where quoted text showed up in the
                # preamble
                # <20060515162817.65F0F1BBAE@citi.umich.edu>
-               unshift(@parts, new_sub(undef, \$pre)) if $pre =~ /:/s;
+               unshift(@parts, new_sub(undef, \$pre)) if index($pre, ':') >= 0;
                return \@parts;
        }
        # "multipart", but no boundary found, treat as single part