diff options
author | Eric Wong <e@80x24.org> | 2016-06-26 07:58:43 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-06-26 07:58:43 +0000 |
commit | 10d076c7731c702e70950d06d673be163aa59be9 (patch) | |
tree | b19e9ff1daaca42fca9d40e7a49af0d4e626fcd2 /lib/PublicInbox | |
parent | 4838cef47d8978b1928a89cfdcc4a1e53d5201e6 (diff) | |
download | public-inbox-10d076c7731c702e70950d06d673be163aa59be9.tar.gz |
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).
Diffstat (limited to 'lib/PublicInbox')
-rw-r--r-- | lib/PublicInbox/Spamcheck/Spamc.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/PublicInbox/Spamcheck/Spamc.pm b/lib/PublicInbox/Spamcheck/Spamc.pm index 312e52df..5190c269 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); |