12 lines
418 B
Diff
12 lines
418 B
Diff
|
--- 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)
|