From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.4.0 (2014-02-07) on dcvr.yhbt.net X-Spam-Level: X-Spam-ASN: X-Spam-Status: No, score=-4.0 required=3.0 tests=ALL_TRUSTED,BAYES_00 shortcircuit=no autolearn=ham autolearn_force=no version=3.4.0 Received: from localhost (dcvr.yhbt.net [127.0.0.1]) by dcvr.yhbt.net (Postfix) with ESMTP id A60711FE4E for ; Sun, 26 Jun 2016 08:00:46 +0000 (UTC) From: Eric Wong To: meta@public-inbox.org Subject: [PATCH] spamcheck/spamc: fix compatibility with Perl 5.14.2 Date: Sun, 26 Jun 2016 08:00:46 +0000 Message-Id: <20160626080046.12764-1-e@80x24.org> List-Id: This is necessary for Debian 7.x (wheezy), since GLOB objects do not seem responsive to the can("fileno") check (we do a similar check in GitHTTPBackend). --- lib/PublicInbox/Spamcheck/Spamc.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/PublicInbox/Spamcheck/Spamc.pm b/lib/PublicInbox/Spamcheck/Spamc.pm index 312e52d..5190c26 100644 --- a/lib/PublicInbox/Spamcheck/Spamc.pm +++ b/lib/PublicInbox/Spamcheck/Spamc.pm @@ -75,8 +75,8 @@ sub _msg_to_fd { my $tmpfh; my $fd; if (my $ref = ref($msg)) { - - return $msg->fileno if $ref ne 'SCALAR' && $msg->can('fileno'); + my $fileno = eval { fileno($msg) }; + return $fileno if defined $fileno; $tmpfh = IO::File->new_tmpfile; $tmpfh->autoflush(1); -- EW