← Back to branch summary

~ubuntu-branches/ubuntu/dapper/libwww-perl/dapper-updates

« back to all changes in this revision

Viewing changes to lib/LWP/Protocol/nntp.pm

  • Committer: Bazaar Package Importer
  • Author(s): Jay Bonci
  • Date: 2005-02-13 18:45:32 UTC
  • mfrom: (2.1.2 hoary)
  • Revision ID: james.westby@ubuntu.com-20050213184532-67qvopi4wre3010u
Tags: 5.803-4
http://bugs.debian.org/294597
http://bugs.debian.org/294595
* Make GET/POST/HEAD symlinks (Closes: #294597)
* lwp-requests now honors -b when dumping links (Closes: #294595)
  - Thanks to giuseppe bonacci for the patch
* Moved symlinks to a libwww-perl.links file

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/LWP/Protocol/nntp.pm
1
1
#
2
 
# $Id: nntp.pm,v 1.8 1998/11/19 21:45:02 aas Exp $
 
2
# $Id: nntp.pm,v 1.9 2003/10/23 19:11:33 uid39246 Exp $
3
3
 
4
4
# Implementation of the Network News Transfer Protocol (RFC 977)
5
5
#
111
111
    while ($_ = shift @$art) {
112
112
        if (/^\s+$/) {
113
113
            last;  # end of headers
114
 
        } elsif (/^(\S+):\s*(.*)/) {
 
114
        }
 
115
        elsif (/^(\S+):\s*(.*)/) {
115
116
            $response->push_header($key, $val) if $key;
116
117
            ($key, $val) = ($1, $2);
117
 
        } elsif (/^\s+(.*)/) {
 
118
        }
 
119
        elsif (/^\s+(.*)/) {
118
120
            next unless $key;
119
121
            $val .= $1;
120
 
        } else {
 
122
        }
 
123
        else {
121
124
            unshift(@$art, $_);
122
125
            last;
123
126
        }