Group :: Development/Perl
RPM: perl-libnet
Main Changelog Spec Patches Sources Download Gear Bugs and FR Repocop
Patch: perl-libnet-1.19-deb-nntp-article.patch
Download
Download
--- libnet-1.19/Net/NNTP.pm- 2004-06-30 13:56:11 +0000
+++ libnet-1.19/Net/NNTP.pm 2005-06-11 15:41:23 +0000
@@ -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)