From 6da6c662340468ceff376ff0f996c48735e3beed Mon Sep 17 00:00:00 2001
From: Byron Jones <glob@mozilla.com>
Date: Tue, 17 Mar 2015 13:04:25 +0800
Subject: cannot use 'any' because it isn't available in the version of
 List::Util we have

---
 extensions/BMO/Extension.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'extensions/BMO/Extension.pm')

diff --git a/extensions/BMO/Extension.pm b/extensions/BMO/Extension.pm
index ad93604e0..6bd8bacda 100644
--- a/extensions/BMO/Extension.pm
+++ b/extensions/BMO/Extension.pm
@@ -45,7 +45,7 @@ use Email::MIME::ContentType qw(parse_content_type);
 use Encode qw(find_encoding encode_utf8);
 use File::MimeInfo::Magic;
 use List::MoreUtils qw(natatime);
-use List::Util qw(first any);
+use List::Util qw(first);
 use Scalar::Util qw(blessed);
 use Sys::Syslog qw(:DEFAULT setlogsock);
 use Text::Balanced qw( extract_bracketed extract_multiple );
@@ -786,7 +786,7 @@ sub attachment_view {
 
     # must be our supported content-type
     return unless
-        any { $attachment->contenttype eq $autodetect_attach_urls{$_}->{content_type} }
+        grep { $attachment->contenttype eq $autodetect_attach_urls{$_}->{content_type} }
         keys %autodetect_attach_urls;
 
     # must still be a valid url
-- 
cgit v1.2.3-24-g4f1b