r44825 - in /trunk/libwww-perl: ./ debian/ lib/ lib/HTTP/ lib/HTTP/Cookies/ lib/LWP/ lib/Net/ lib/Net/HTTP/ lib/WWW/ t/base/ t/net/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Fri Sep 25 19:55:15 UTC 2009
Author: jawnsy-guest
Date: Fri Sep 25 19:55:09 2009
New Revision: 44825
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=44825
Log:
* New upstream release
* Rewrote control description
* Standards-Version 3.8.3 (no changes)
* Drop version dependencies where satisfied by oldstable
* Add myself to Uploaders and Copyright
* Refresh copyright file; extract debian/* copyright holders from
changelog trailers
Modified:
trunk/libwww-perl/Changes
trunk/libwww-perl/META.yml
trunk/libwww-perl/debian/changelog
trunk/libwww-perl/debian/control
trunk/libwww-perl/debian/copyright
trunk/libwww-perl/lib/HTTP/Cookies.pm
trunk/libwww-perl/lib/HTTP/Cookies/Netscape.pm
trunk/libwww-perl/lib/HTTP/Message.pm
trunk/libwww-perl/lib/LWP.pm
trunk/libwww-perl/lib/LWP/UserAgent.pm
trunk/libwww-perl/lib/Net/HTTP.pm
trunk/libwww-perl/lib/Net/HTTP/Methods.pm
trunk/libwww-perl/lib/WWW/RobotRules.pm
trunk/libwww-perl/t/base/cookies.t
trunk/libwww-perl/t/net/config.pl.dist
trunk/libwww-perl/t/net/http-get.t
trunk/libwww-perl/t/net/http-post.t
trunk/libwww-perl/t/net/http-timeout.t
trunk/libwww-perl/t/net/mirror.t
trunk/libwww-perl/t/net/proxy.t
Modified: trunk/libwww-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/Changes?rev=44825&op=diff
==============================================================================
--- trunk/libwww-perl/Changes (original)
+++ trunk/libwww-perl/Changes Fri Sep 25 19:55:09 2009
@@ -1,3 +1,23 @@
+_______________________________________________________________________________
+2009-09-21 Release 5.832
+
+
+Ville Skyttä (6):
+ Fix net test suite.
+ Comment spelling fixes.
+ Fix links to old Netscape cookie specification.
+ Documentation spelling fixes.
+ Improve max line length exceeded/read error messages.
+ Do not warn about seemingly wellformed but unrecognized robots.txt lines.
+
+Gisle Aas (1):
+ $mess->content_charset would fail for empty content
+
+mschilli (1):
+ Further restrict what variables env_proxy() process
+
+
+
_______________________________________________________________________________
2009-08-13 Release 5.831
Modified: trunk/libwww-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/META.yml?rev=44825&op=diff
==============================================================================
--- trunk/libwww-perl/META.yml (original)
+++ trunk/libwww-perl/META.yml Fri Sep 25 19:55:09 2009
@@ -1,12 +1,14 @@
--- #YAML:1.0
name: libwww-perl
-version: 5.831
+version: 5.832
abstract: The World-Wide Web library for Perl
author:
- Gisle Aas <gisle at activestate.com>
license: perl
distribution_type: module
configure_requires:
+ ExtUtils::MakeMaker: 0
+build_requires:
ExtUtils::MakeMaker: 0
requires:
Compress::Zlib: 1.10
@@ -24,7 +26,7 @@
directory:
- t
- inc
-generated_by: ExtUtils::MakeMaker version 6.4801
+generated_by: ExtUtils::MakeMaker version 6.55_02
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
Modified: trunk/libwww-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/debian/changelog?rev=44825&op=diff
==============================================================================
--- trunk/libwww-perl/debian/changelog (original)
+++ trunk/libwww-perl/debian/changelog Fri Sep 25 19:55:09 2009
@@ -1,8 +1,18 @@
-libwww-perl (5.831-2) UNRELEASED; urgency=low
-
+libwww-perl (5.832-1) UNRELEASED; urgency=low
+
+ [ Jonathan Yu ]
+ * New upstream release
+ * Rewrote control description
+ * Standards-Version 3.8.3 (no changes)
+ * Drop version dependencies where satisfied by oldstable
+ * Add myself to Uploaders and Copyright
+ * Refresh copyright file; extract debian/* copyright holders from
+ changelog trailers
+
+ [ Ryan Niebur ]
* Update ryan52's email address
- -- Ryan Niebur <ryan at debian.org> Fri, 25 Sep 2009 00:27:00 -0700
+ -- Jonathan Yu <jawnsy at cpan.org> Fri, 25 Sep 2009 05:25:55 -0400
libwww-perl (5.831-1) unstable; urgency=low
Modified: trunk/libwww-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/debian/control?rev=44825&op=diff
==============================================================================
--- trunk/libwww-perl/debian/control (original)
+++ trunk/libwww-perl/debian/control Fri Sep 25 19:55:09 2009
@@ -1,34 +1,32 @@
Source: libwww-perl
Priority: optional
Section: perl
+Build-Depends: debhelper (>= 7)
+Build-Depends-Indep: perl, netbase, libdigest-md5-perl,
+ liburi-perl, libhtml-parser-perl, libcompress-zlib-perl,
+ libcompress-bzip2-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Jay Bonci <jaybonci at debian.org>, Damyan Ivanov <dmn at debian.org>,
Jaldhar H. Vyas <jaldhar at debian.org>, gregor herrmann <gregoa at debian.org>,
Krzysztof Krzyżaniak (eloy) <eloy at debian.org>, Antonio Radici <antonio at dyne.org>,
Ryan Niebur <ryan at debian.org>, Nathan Handler <nhandler at ubuntu.com>,
- Iulian Udrea <iulian at ubuntu.com>
-Standards-Version: 3.8.2
+ Iulian Udrea <iulian at ubuntu.com>, Jonathan Yu <jawnsy at cpan.org>
+Standards-Version: 3.8.3
Homepage: http://search.cpan.org/dist/libwww-perl/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libwww-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libwww-perl/
-Build-Depends: debhelper (>= 7)
-Build-Depends-Indep: netbase, perl (>= 5.8.1), libdigest-md5-perl,
- liburi-perl (>= 1.10), libhtml-parser-perl (>= 3.33), libcompress-zlib-perl,
- libcompress-bzip2-perl
Package: libwww-perl
Architecture: all
-Depends: ${misc:Depends}, ${perl:Depends}, perl (>= 5.8.1), libdigest-md5-perl,
- liburi-perl (>= 1.10), libhtml-parser-perl (>= 3.33), libhtml-tree-perl (>= 3.11),
+Depends: ${misc:Depends}, ${perl:Depends}, libdigest-md5-perl,
+ liburi-perl, libhtml-parser-perl, libhtml-tree-perl,
libhtml-tagset-perl, netbase
Recommends: libmailtools-perl, libhtml-format-perl, libcompress-zlib-perl,
libcompress-bzip2-perl
-Suggests: libcrypt-ssleay-perl | libio-socket-ssl-perl (>= 0.81-2)
-Description: WWW client/server library for Perl (aka LWP)
- Libwww-perl is a collection of Perl modules which provides a simple
- and consistent programming interface (API) to the World-Wide Web. The
- main focus of the library is to provide classes and functions that
- allow you to write WWW clients, thus libwww-perl said to be a WWW
- client library. The library also contain modules that are of more
- general use, as well as a simple HTTP/1.1-compatible server
- implementation.
+Suggests: libcrypt-ssleay-perl | libio-socket-ssl-perl
+Description: Perl HTTP/WWW client/server library
+ libwww-perl (also known as LWP) is a collection of Perl modules that provide
+ a simple and consistent programming interface (API) to the World-Wide Web.
+ The main focus of the library is to provide classes and functions that allow
+ you to write WWW clients. It also contains general purpose modules, as well
+ as a simple HTTP/1.1-compatible server implementation.
Modified: trunk/libwww-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/debian/copyright?rev=44825&op=diff
==============================================================================
--- trunk/libwww-perl/debian/copyright (original)
+++ trunk/libwww-perl/debian/copyright Fri Sep 25 19:55:09 2009
@@ -5,9 +5,8 @@
Upstream-Name: libwww-perl
Files: *
-Copyright:
- (c) 1995-2009, Gisle Aas <gisle at activestate.com>
- (c) 1995, Martijn Koster
+Copyright: 1995-2009, Gisle Aas <gisle at activestate.com>
+ 1995, Martijn Koster
License-Alias: Perl
License: Artistic | GPL-1+
@@ -22,8 +21,19 @@
License: Artistic | GPL-1+
Files: debian/*
-Copyright: various members of the Debian Perl Group
- (cf debian/changelog)
+Copyright: 2009, Jonathan Yu <jawnsy at cpan.org>
+ 2009, Iulian Udrea <iulian at ubuntu.com>
+ 2009, Nathan Handler <nhandler at ubuntu.com>
+ 2009, Ryan Niebur <ryanryan52 at gmail.com>
+ 2009, Antonio Radici <antonio at dyne.org>
+ 2007-2009, Damyan Ivanov <dmn at debian.org>
+ 2008, Krzysztof Krzyzaniak (eloy) <eloy at debian.org>
+ 2008, gregor herrmann <gregoa at debian.org>
+ 2008, Roberto C. Sanchez <roberto at debian.org>
+ 2004-2006, Jay Bonci <jaybonci at debian.org>
+ 1996-2004, Michael Alan Dorman <mdorman at debian.org>
+ 2002, Brendan O'Dea <bod at debian.org>
+ 1999, John Goerzen <jgoerzen at complete.org>
License: Artistic | GPL-1+
License: Artistic
Modified: trunk/libwww-perl/lib/HTTP/Cookies.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/lib/HTTP/Cookies.pm?rev=44825&op=diff
==============================================================================
--- trunk/libwww-perl/lib/HTTP/Cookies.pm (original)
+++ trunk/libwww-perl/lib/HTTP/Cookies.pm Fri Sep 25 19:55:09 2009
@@ -5,7 +5,7 @@
use HTTP::Headers::Util qw(_split_header_words join_header_words);
use vars qw($VERSION $EPOCH_OFFSET);
-$VERSION = "5.827";
+$VERSION = "5.832";
# Legacy: because "use "HTTP::Cookies" used be the ONLY way
# to load the class HTTP::Cookies::Netscape.
@@ -89,7 +89,7 @@
if ($port) {
my $found;
if ($port =~ s/^_//) {
- # The correponding Set-Cookie attribute was empty
+ # The corresponding Set-Cookie attribute was empty
$found++ if $port eq $req_port;
$port = "";
}
@@ -186,7 +186,7 @@
if (@ns_set) {
# The old Netscape cookie format for Set-Cookie
- # http://wp.netscape.com/newsref/std/cookie_spec.html
+ # http://curl.haxx.se/rfc/cookie_spec.html
# can for instance contain an unquoted "," in the expires
# field, so we have to use this ad-hoc parser.
my $now = time();
@@ -261,7 +261,7 @@
if ($k eq "discard" || $k eq "secure") {
$v = 1 unless defined $v;
}
- next if exists $hash{$k}; # only first value is signigicant
+ next if exists $hash{$k}; # only first value is significant
$hash{$k} = $v;
};
@@ -611,7 +611,7 @@
Cookies are a general mechanism which server side connections can use
to both store and retrieve information on the client side of the
connection. For more information about cookies refer to
-<URL:http://wp.netscape.com/newsref/std/cookie_spec.html> and
+<URL:http://curl.haxx.se/rfc/cookie_spec.html> and
<URL:http://www.cookiecentral.com/>. This module also implements the
new style cookies described in I<RFC 2965>.
The two variants of cookies are supposed to be able to coexist happily.
Modified: trunk/libwww-perl/lib/HTTP/Cookies/Netscape.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/lib/HTTP/Cookies/Netscape.pm?rev=44825&op=diff
==============================================================================
--- trunk/libwww-perl/lib/HTTP/Cookies/Netscape.pm (original)
+++ trunk/libwww-perl/lib/HTTP/Cookies/Netscape.pm Fri Sep 25 19:55:09 2009
@@ -3,7 +3,7 @@
use strict;
use vars qw(@ISA $VERSION);
-$VERSION = "5.822";
+$VERSION = "5.832";
require HTTP::Cookies;
@ISA=qw(HTTP::Cookies);
@@ -43,6 +43,8 @@
local(*FILE, $_);
open(FILE, ">$file") || return;
+ # Use old, now broken link to the old cookie spec just in case something
+ # else (not us!) requires the comment block exactly this way.
print FILE <<EOT;
# Netscape HTTP Cookie File
# http://www.netscape.com/newsref/std/cookie_spec.html
Modified: trunk/libwww-perl/lib/HTTP/Message.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/lib/HTTP/Message.pm?rev=44825&op=diff
==============================================================================
--- trunk/libwww-perl/lib/HTTP/Message.pm (original)
+++ trunk/libwww-perl/lib/HTTP/Message.pm Fri Sep 25 19:55:09 2009
@@ -2,7 +2,7 @@
use strict;
use vars qw($VERSION $AUTOLOAD);
-$VERSION = "5.831";
+$VERSION = "5.832";
require HTTP::Headers;
require Carp;
@@ -248,6 +248,7 @@
if (my $c = $attr->{content}) {
require HTTP::Headers::Util;
my @v = HTTP::Headers::Util::split_header_words($c);
+ return unless @v;
my($ct, undef, %ct_param) = @{$v[0]};
$charset = $ct_param{charset};
}
Modified: trunk/libwww-perl/lib/LWP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/lib/LWP.pm?rev=44825&op=diff
==============================================================================
--- trunk/libwww-perl/lib/LWP.pm (original)
+++ trunk/libwww-perl/lib/LWP.pm Fri Sep 25 19:55:09 2009
@@ -1,6 +1,6 @@
package LWP;
-$VERSION = "5.831";
+$VERSION = "5.832";
sub Version { $VERSION; }
require 5.005;
Modified: trunk/libwww-perl/lib/LWP/UserAgent.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/lib/LWP/UserAgent.pm?rev=44825&op=diff
==============================================================================
--- trunk/libwww-perl/lib/LWP/UserAgent.pm (original)
+++ trunk/libwww-perl/lib/LWP/UserAgent.pm Fri Sep 25 19:55:09 2009
@@ -5,7 +5,7 @@
require LWP::MemberMixin;
@ISA = qw(LWP::MemberMixin);
-$VERSION = "5.829";
+$VERSION = "5.832";
use HTTP::Request ();
use HTTP::Response ();
@@ -932,6 +932,8 @@
else {
# Ignore random _proxy variables, allow only valid schemes
next unless $k =~ /^$URI::scheme_re\z/;
+ # Ignore xxx_proxy variables if xxx isn't a supported protocol
+ next unless LWP::Protocol::implementor($k);
$self->proxy($k, $v);
}
}
@@ -1055,7 +1057,7 @@
C<LWP::UserAgent> when it dispatches requests. Most of these can also
be initialized by options passed to the constructor method.
-The following attributes methods are provided. The attribute value is
+The following attribute methods are provided. The attribute value is
left unchanged if no argument is given. The return value from each
method is the old attribute value.
Modified: trunk/libwww-perl/lib/Net/HTTP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/lib/Net/HTTP.pm?rev=44825&op=diff
==============================================================================
--- trunk/libwww-perl/lib/Net/HTTP.pm (original)
+++ trunk/libwww-perl/lib/Net/HTTP.pm Fri Sep 25 19:55:09 2009
@@ -3,7 +3,7 @@
use strict;
use vars qw($VERSION @ISA $SOCKET_CLASS);
-$VERSION = "5.831";
+$VERSION = "5.832";
unless ($SOCKET_CLASS) {
eval { require IO::Socket::INET } || require IO::Socket;
$SOCKET_CLASS = "IO::Socket::INET";
@@ -57,7 +57,7 @@
The C<Net::HTTP> class is a low-level HTTP client. An instance of the
C<Net::HTTP> class represents a connection to an HTTP server. The
HTTP protocol is described in RFC 2616. The C<Net::HTTP> class
-support C<HTTP/1.0> and C<HTTP/1.1>.
+supports C<HTTP/1.0> and C<HTTP/1.1>.
C<Net::HTTP> is a sub-class of C<IO::Socket::INET>. You can mix the
methods described below with reading and writing from the socket
@@ -132,7 +132,7 @@
=item $s->max_header_length
-Get/set a limit on the number of headers lines that a response can
+Get/set a limit on the number of header lines that a response can
have. The default is 128. A value of 0 means no limit.
=item $s->format_request($method, $uri, %headers, [$content])
Modified: trunk/libwww-perl/lib/Net/HTTP/Methods.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/lib/Net/HTTP/Methods.pm?rev=44825&op=diff
==============================================================================
--- trunk/libwww-perl/lib/Net/HTTP/Methods.pm (original)
+++ trunk/libwww-perl/lib/Net/HTTP/Methods.pm Fri Sep 25 19:55:09 2009
@@ -5,7 +5,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = "5.824";
+$VERSION = "5.832";
my $CRLF = "\015\012"; # "\r\n" is not portable
@@ -241,6 +241,7 @@
sub my_readline {
my $self = shift;
+ my $what = shift;
for (${*$self}{'http_buf'}) {
my $max_line_length = ${*$self}{'http_max_line_length'};
my $pos;
@@ -248,7 +249,7 @@
# find line ending
$pos = index($_, "\012");
last if $pos >= 0;
- die "Line too long (limit is $max_line_length)"
+ die "$what line too long (limit is $max_line_length)"
if $max_line_length && length($_) > $max_line_length;
# need to read more data to find a line ending
@@ -265,7 +266,7 @@
}
# if we have already accumulated some data let's at least
# return that as a line
- die "read failed: $!" unless length;
+ die "$what read failed: $!" unless length;
}
unless ($n) {
return undef unless length;
@@ -273,7 +274,7 @@
}
}
}
- die "Line too long ($pos; limit is $max_line_length)"
+ die "$what line too long ($pos; limit is $max_line_length)"
if $max_line_length && $pos > $max_line_length;
my $line = substr($_, 0, $pos+1, "");
@@ -311,7 +312,7 @@
my @headers;
my $line_count = 0;
my $max_header_lines = ${*$self}{'http_max_header_lines'};
- while (my $line = my_readline($self)) {
+ while (my $line = my_readline($self, 'Header')) {
if ($line =~ /^(\S+?)\s*:\s*(.*)/s) {
push(@headers, $1, $2);
}
@@ -339,7 +340,7 @@
my($self, %opt) = @_;
my $laxed = $opt{laxed};
- my($status, $eol) = my_readline($self);
+ my($status, $eol) = my_readline($self, 'Status');
unless (defined $status) {
die "Server closed connection without sending any data back";
}
@@ -471,11 +472,11 @@
# $chunked > 0: bytes left in current chunk to read
if ($chunked <= 0) {
- my $line = my_readline($self);
+ my $line = my_readline($self, 'Entity body');
if ($chunked == 0) {
die "Missing newline after chunk data: '$line'"
if !defined($line) || $line ne "";
- $line = my_readline($self);
+ $line = my_readline($self, 'Entity body');
}
die "EOF when chunk header expected" unless defined($line);
my $chunk_len = $line;
Modified: trunk/libwww-perl/lib/WWW/RobotRules.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/lib/WWW/RobotRules.pm?rev=44825&op=diff
==============================================================================
--- trunk/libwww-perl/lib/WWW/RobotRules.pm (original)
+++ trunk/libwww-perl/lib/WWW/RobotRules.pm Fri Sep 25 19:55:09 2009
@@ -1,6 +1,6 @@
package WWW::RobotRules;
-$VERSION = "5.824";
+$VERSION = "5.832";
sub Version { $VERSION; }
use strict;
@@ -105,11 +105,11 @@
push(@anon_disallowed, $disallow);
}
}
- elsif (/^\s*Sitemap\s*:/i) {
+ elsif (/\S\s*:/) {
# ignore
}
else {
- warn "RobotRules <$robot_txt_uri>: Unexpected line: $_\n" if $^W;
+ warn "RobotRules <$robot_txt_uri>: Malformed record: <$_>\n" if $^W;
}
}
@@ -132,7 +132,7 @@
# See whether my short-name is a substring of the
# "User-Agent: ..." line that we were passed:
-
+
if(index(lc($me), lc($ua_line)) >= 0) {
return 1;
}
@@ -145,10 +145,10 @@
sub allowed {
my($self, $uri) = @_;
$uri = URI->new("$uri");
-
+
return 1 unless $uri->scheme eq 'http' or $uri->scheme eq 'https';
# Robots.txt applies to only those schemes.
-
+
my $netloc = $uri->host . ":" . $uri->port;
my $fresh_until = $self->fresh_until($netloc);
@@ -358,7 +358,7 @@
The format and semantics of the "/robots.txt" file are as follows
(this is an edited abstract of
-<http://www.robotstxt.org/wc/norobots.html> ):
+<http://www.robotstxt.org/wc/norobots.html>):
The file consists of one or more records separated by one or more
blank lines. Each record contains lines of the form
@@ -395,6 +395,8 @@
starts with this value will not be retrieved
=back
+
+Unrecognized records are ignored.
=head1 ROBOTS.TXT EXAMPLES
@@ -433,7 +435,7 @@
Disallow: /west-wing/ # except the west wing!
# It's good to be the Prince...
User-agent: Beast
- Disallow:
+ Disallow:
This file is missing the required blank lines between records.
However, the intention is clear.
Modified: trunk/libwww-perl/t/base/cookies.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/t/base/cookies.t?rev=44825&op=diff
==============================================================================
--- trunk/libwww-perl/t/base/cookies.t (original)
+++ trunk/libwww-perl/t/base/cookies.t Fri Sep 25 19:55:09 2009
@@ -9,7 +9,7 @@
#-------------------------------------------------------------------
# First we check that it works for the original example at
-# http://www.netscape.com/newsref/std/cookie_spec.html
+# http://curl.haxx.se/rfc/cookie_spec.html
# Client requests a document, and receives in the response:
#
Modified: trunk/libwww-perl/t/net/config.pl.dist
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/t/net/config.pl.dist?rev=44825&op=diff
==============================================================================
--- trunk/libwww-perl/t/net/config.pl.dist (original)
+++ trunk/libwww-perl/t/net/config.pl.dist Fri Sep 25 19:55:09 2009
@@ -1,6 +1,6 @@
package net;
-# Configure these for you local system
+# Configure these for your local system
$httpserver = "localhost:80";
$cgidir = "/cgi-bin/lwp";
Modified: trunk/libwww-perl/t/net/http-get.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/t/net/http-get.t?rev=44825&op=diff
==============================================================================
--- trunk/libwww-perl/t/net/http-get.t (original)
+++ trunk/libwww-perl/t/net/http-get.t Fri Sep 25 19:55:09 2009
@@ -6,7 +6,7 @@
print "1..2\n";
require "net/config.pl";
-require LWP::Protocol::http;
+require HTTP::Request;
require LWP::UserAgent;
my $ua = new LWP::UserAgent; # create a useragent to test
@@ -14,7 +14,7 @@
$netloc = $net::httpserver;
$script = $net::cgidir . "/test";
-$url = new URI::URL("http://$netloc$script?query");
+$url = "http://$netloc$script?query";
my $request = new HTTP::Request('GET', $url);
Modified: trunk/libwww-perl/t/net/http-post.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/t/net/http-post.t?rev=44825&op=diff
==============================================================================
--- trunk/libwww-perl/t/net/http-post.t (original)
+++ trunk/libwww-perl/t/net/http-post.t Fri Sep 25 19:55:09 2009
@@ -6,7 +6,7 @@
print "1..2\n";
require "net/config.pl";
-require LWP::Protocol::http;
+require HTTP::Request;
require LWP::UserAgent;
$netloc = $net::httpserver;
@@ -14,7 +14,7 @@
my $ua = new LWP::UserAgent; # create a useragent to test
-$url = new URI::URL("http://$netloc$script");
+$url = "http://$netloc$script";
my $form = 'searchtype=Substring';
Modified: trunk/libwww-perl/t/net/http-timeout.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/t/net/http-timeout.t?rev=44825&op=diff
==============================================================================
--- trunk/libwww-perl/t/net/http-timeout.t (original)
+++ trunk/libwww-perl/t/net/http-timeout.t Fri Sep 25 19:55:09 2009
@@ -5,8 +5,7 @@
print "1..1\n";
require "net/config.pl";
-require HTTP::Status;
-require LWP::Protocol::http;
+require HTTP::Request;
require LWP::UserAgent;
my $ua = new LWP::UserAgent; # create a useragent to test
@@ -16,7 +15,7 @@
$netloc = $net::httpserver;
$script = $net::cgidir . "/timeout";
-$url = new URI::URL("http://$netloc$script");
+$url = "http://$netloc$script";
my $request = new HTTP::Request('GET', $url);
Modified: trunk/libwww-perl/t/net/mirror.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/t/net/mirror.t?rev=44825&op=diff
==============================================================================
--- trunk/libwww-perl/t/net/mirror.t (original)
+++ trunk/libwww-perl/t/net/mirror.t Fri Sep 25 19:55:09 2009
@@ -3,7 +3,6 @@
#
require "net/config.pl";
-require LWP::Protocol::http;
require LWP::UserAgent;
require HTTP::Status;
@@ -29,7 +28,7 @@
print "ok 2\n";
}
else {
- print "nok ok 2\n";
+ print "not ok 2\n";
}
unlink($copy);
Modified: trunk/libwww-perl/t/net/proxy.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/t/net/proxy.t?rev=44825&op=diff
==============================================================================
--- trunk/libwww-perl/t/net/proxy.t (original)
+++ trunk/libwww-perl/t/net/proxy.t Fri Sep 25 19:55:09 2009
@@ -12,13 +12,14 @@
exit 0;
}
+require HTTP::Request;
require LWP::UserAgent;
my $ua = new LWP::UserAgent; # create a useragent to test
$ua->proxy('ftp', $net::ftp_proxy);
-my $url = new URI::URL('ftp://ftp.uninett.no/');
+my $url = 'ftp://ftp.uninett.no/';
my $request = new HTTP::Request('GET', $url);
More information about the Pkg-perl-cvs-commits
mailing list