--- perl-5.8.8/lib/Net/NNTP.pm.debian_fix_net_nntp.patch	2004-05-06 09:36:05.000000000 -0400
+++ perl-5.8.8/lib/Net/NNTP.pm	2006-02-10 14:01:30.000000000 -0500
@@ -120,7 +120,7 @@
  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)