diff options
author | Brendan O'Dea <bod@debian.org> | 2006-02-11 11:37:15 +1100 |
---|---|---|
committer | Gisle Aas <gisle@activestate.com> | 2006-02-17 21:19:03 +0000 |
commit | 7be0a92d7b766f4846554b78d49910f80158b3cc (patch) | |
tree | 3c9cbe9c42e45362f2bef124521fe64f7a695d08 /lib/Net | |
parent | d7e66b2cc4f69dc806081c8c660a6935a81813d0 (diff) | |
download | perl-7be0a92d7b766f4846554b78d49910f80158b3cc.tar.gz |
Fix precedence.
Subject: [PATCH] 5.8.8: Debian patches
From: "Brendan O'Dea" <bod@debian.org>
Message-ID: <20060210133715.GA6826@londo.c47.org>
p4raw-id: //depot/perl@27211
Diffstat (limited to 'lib/Net')
-rw-r--r-- | lib/Net/NNTP.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Net/NNTP.pm b/lib/Net/NNTP.pm index 0467a8034c..fb4819ae54 100644 --- a/lib/Net/NNTP.pm +++ b/lib/Net/NNTP.pm @@ -120,7 +120,7 @@ sub article my $nntp = shift; my @fh; - @fh = (pop) if @_ == 2 || (@_ && ref($_[0]) || ref(\$_[0]) eq 'GLOB'); + @fh = (pop) if @_ == 2 || (@_ && (ref($_[0]) || ref(\$_[0]) eq 'GLOB')); $nntp->_ARTICLE(@_) ? $nntp->read_until_dot(@fh) |