Blame perl-5.8.8-debian_fix_net_nntp.patch
|
jvdias |
562c626 |
--- perl-5.8.8/lib/Net/NNTP.pm.debian_fix_net_nntp.patch 2004-05-06 09:36:05.000000000 -0400
|
|
jvdias |
562c626 |
+++ perl-5.8.8/lib/Net/NNTP.pm 2006-02-10 14:01:30.000000000 -0500
|
|
jvdias |
562c626 |
@@ -120,7 +120,7 @@
|
|
jvdias |
562c626 |
my $nntp = shift;
|
|
jvdias |
562c626 |
my @fh;
|
|
jvdias |
562c626 |
|
|
jvdias |
562c626 |
- @fh = (pop) if @_ == 2 || (@_ && ref($_[0]) || ref(\$_[0]) eq 'GLOB');
|
|
jvdias |
562c626 |
+ @fh = (pop) if @_ == 2 || (@_ && (ref($_[0]) || ref(\$_[0]) eq 'GLOB'));
|
|
jvdias |
562c626 |
|
|
jvdias |
562c626 |
$nntp->_ARTICLE(@_)
|
|
jvdias |
562c626 |
? $nntp->read_until_dot(@fh)
|