Mailinglist Archive: opensuse-commit (875 mails)
| < Previous | Next > |
commit perl-libwww-perl
- From: root@xxxxxxxxxxxxxxx (h_root)
- Date: Fri, 25 Jul 2008 17:00:09 +0200
- Message-id: <20080725150009.92B21678181@xxxxxxxxxxxxxxx>
Hello community,
here is the log from the commit of package perl-libwww-perl
checked in at Fri Jul 25 17:00:09 CEST 2008.
--------
--- perl-libwww-perl/perl-libwww-perl.changes 2008-06-19 17:05:09.000000000
+0200
+++ /mounts/work_src_done/STABLE/perl-libwww-perl/perl-libwww-perl.changes
2008-07-25 15:44:29.000000000 +0200
@@ -1,0 +2,20 @@
+Fri Jul 25 15:17:53 CEST 2008 - anicka@xxxxxxx
+
+- update to 5.814
+ * Typo fix.
+ * Add HTTP::Message::decodable()
+ * Use decoded_content in the synposis
+ * Avoid adding an empty first part in $mess->add_part()
+ * Get rid of all the manual dependency tests.
+ * Simplify the Makefile.PL (no interactivity)
+ * Provide DELETE method in HTTP::Request::Common
+ * Checkbox picks up nearby text in description of alternates
+ * HTML::Form::possible_values() should not returned disabled values
+ * File::Listing documentation claimed only 'unix' format was supported
+ * File::Listing only support English locales
+ * Make common-req.t use Test.pm
+ * Typo; CAN_TALK_TO_OUTSELF
+ * Fix up File::Listings fallback to dosftp
+ * File::Listing parse failure on BSD Linux based systems
+
+-------------------------------------------------------------------
Old:
----
libwww-perl-5.813.tar.bz2
New:
----
libwww-perl-5.814.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-libwww-perl.spec ++++++
--- /var/tmp/diff_new_pack.wrH822/_old 2008-07-25 16:59:53.000000000 +0200
+++ /var/tmp/diff_new_pack.wrH822/_new 2008-07-25 16:59:53.000000000 +0200
@@ -1,5 +1,5 @@
#
-# spec file for package perl-libwww-perl (Version 5.813)
+# spec file for package perl-libwww-perl (Version 5.814)
#
# Copyright (c) 2008 SUSE LINUX Products GmbH, Nuernberg, Germany.
# This file and all modifications and additions to the pristine
@@ -13,7 +13,7 @@
Name: perl-libwww-perl
BuildRequires: perl-Compress-Zlib perl-HTML-Parser perl-URI
-Version: 5.813
+Version: 5.814
Release: 1
Provides: libwww-perl
Provides: perl_lw3
@@ -82,6 +82,23 @@
/var/adm/perl-modules/%{name}
%changelog
+* Fri Jul 25 2008 anicka@xxxxxxx
+- update to 5.814
+ * Typo fix.
+ * Add HTTP::Message::decodable()
+ * Use decoded_content in the synposis
+ * Avoid adding an empty first part in $mess->add_part()
+ * Get rid of all the manual dependency tests.
+ * Simplify the Makefile.PL (no interactivity)
+ * Provide DELETE method in HTTP::Request::Common
+ * Checkbox picks up nearby text in description of alternates
+ * HTML::Form::possible_values() should not returned disabled values
+ * File::Listing documentation claimed only 'unix' format was supported
+ * File::Listing only support English locales
+ * Make common-req.t use Test.pm
+ * Typo; CAN_TALK_TO_OUTSELF
+ * Fix up File::Listings fallback to dosftp
+ * File::Listing parse failure on BSD Linux based systems
* Thu Jun 19 2008 anicka@xxxxxxx
- update to 5.813
* RobotUA constructor ignores delay, use_sleep
++++++ libwww-perl-5.813.tar.bz2 -> libwww-perl-5.814.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/libwww-perl-5.813/Changes new/libwww-perl-5.814/Changes
--- old/libwww-perl-5.813/Changes 2008-06-17 22:29:42.000000000 +0200
+++ new/libwww-perl-5.814/Changes 2008-07-25 11:02:16.000000000 +0200
@@ -1,3 +1,30 @@
+2008-07-25 Gisle Aas <gisle@xxxxxxxxxxxxxxx>
+
+ Release 5.814
+
+ Gisle Aas (13):
+ Typo fix.
+ Add HTTP::Message::decodable()
+ Use decoded_content in the synposis
+ Avoid adding an empty first part in $mess->add_part()
+ Get rid of all the manual dependency tests.
+ Simplify the Makefile.PL (no interactivity)
+ Provide DELETE method in HTTP::Request::Common [RT#37481]
+ Checkbox picks up nearby text in description of alternates
[RT#36771]
+ HTML::Form::possible_values() should not returned disabled values
[RT#35248]
+ File::Listing documentation claimed only 'unix' format was
supported [RT#22021]
+ File::Listing only support English locales [RT#28879]
+ Make common-req.t use Test.pm
+ Typo; CAN_TALK_TO_OUTSELF
+
+ Bill Mann (1):
+ Fix up File::Listings fallback to dosftp [RT#23540]
+
+ Hans-H. Froehlich (1):
+ File::Listing parse failure on BSD Linux based systems [RT#26724]
+
+
+
2008-06-17 Gisle Aas <gisle@xxxxxxxxxxxxxxx>
Release 5.813
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/libwww-perl-5.813/lib/File/Listing.pm
new/libwww-perl-5.814/lib/File/Listing.pm
--- old/libwww-perl-5.813/lib/File/Listing.pm 2008-04-07 14:57:56.000000000
+0200
+++ new/libwww-perl-5.814/lib/File/Listing.pm 2008-07-25 10:58:04.000000000
+0200
@@ -1,7 +1,7 @@
package File::Listing;
sub Version { $VERSION; }
-$VERSION = "5.810";
+$VERSION = "5.814";
require Exporter;
@ISA = qw(Exporter);
@@ -114,8 +114,7 @@
use HTTP::Date qw(str2time);
# A place to remember current directory from last line parsed.
-use vars qw($curdir);
-no strict qw(vars);
+use vars qw($curdir @ISA);
@ISA = qw(File::Listing);
@@ -142,7 +141,7 @@
.* # Graps
\D(\d+) # File size
\s+ # Some space
- (\w{3}\s+\d+\s+(?:\d{1,2}:\d{2}|\d{4})) # Date
+
(\w{3}\s+\d+\s+(?:\d{1,2}:\d{2}|\d{4})|\d{4}-\d{2}-\d{2}\s+\d{2}:\d{2}) # Date
\s+ # Some more space
(.*)$ # File name
/x )
@@ -197,6 +196,7 @@
}
else {
# parse failed, check if the dosftp parse understands it
+ File::Listing::dosftp->init();
return(File::Listing::dosftp->line($_,$tz,$error));
}
@@ -209,8 +209,7 @@
use HTTP::Date qw(str2time);
# A place to remember current directory from last line parsed.
-use vars qw($curdir);
-no strict qw(vars);
+use vars qw($curdir @ISA);
@ISA = qw(File::Listing);
@@ -230,11 +229,11 @@
s/\015//g;
- my ($kind, $size, $date, $name);
+ my ($date, $size_or_dir, $name, $size);
# 02-05-96 10:48AM 1415 src.slf
# 09-10-96 09:18AM <DIR> sl_util
- if (($date,$size_or_dir,$name) =
+ if (($date, $size_or_dir, $name) =
/^(\d\d-\d\d-\d\d\s+\d\d:\d\d\wM) # Date and time info
\s+ # Some space
(<\w{3}>|\d+) # Dir or Size
@@ -253,9 +252,7 @@
$type = 'f';
$size = $size_or_dir;
}
- return [$name, $type, $size, str2time($date, $tz),
- File::Listing::file_mode($kind)];
-
+ return [$name, $type, $size, str2time($date, $tz), undef];
}
else {
return () unless defined $error;
@@ -278,6 +275,8 @@
package File::Listing::apache;
+use vars qw(@ISA);
+
@ISA = qw(File::Listing);
@@ -356,6 +355,7 @@
=head1 SYNOPSIS
use File::Listing qw(parse_dir);
+ $ENV{LANG} = "C"; # dates in non-English locales not supported
for (parse_dir(`ls -l`)) {
($name, $type, $size, $mtime, $mode) = @$_;
next if $type ne 'f'; # plain file
@@ -369,10 +369,7 @@
=head1 DESCRIPTION
This module exports a single function called parse_dir(), which can be
-used to parse directory listings. Currently it only understand Unix
-C<'ls -l'> and C<'ls -lR'> format. It should eventually be able to
-most things you might get back from a ftp server file listing (LIST
-command), i.e. VMS listings, NT listings, DOS listings,...
+used to parse directory listings.
The first parameter to parse_dir() is the directory listing to parse.
It can be a scalar, a reference to an array of directory lines or a
@@ -382,10 +379,10 @@
in the listing. If this value is undefined, then the local time zone is
assumed.
-The third parameter is the type of listing to assume. The values will
-be strings like 'unix', 'vms', 'dos'. Currently only 'unix' is
-implemented and this is also the default value. Ideally, the listing
-type should be determined automatically.
+The third parameter is the type of listing to assume. Currently
+supported formats are 'unix', 'apache' and 'dosftp'. The default
+value 'unix'. Ideally, the listing type should be determined
+automatically.
The fourth parameter specifies how unparseable lines should be treated.
Values can be 'ignore', 'warn' or a code reference. Warn means that
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/libwww-perl-5.813/lib/HTML/Form.pm
new/libwww-perl-5.814/lib/HTML/Form.pm
--- old/libwww-perl-5.813/lib/HTML/Form.pm 2008-06-17 22:26:18.000000000
+0200
+++ new/libwww-perl-5.814/lib/HTML/Form.pm 2008-07-25 10:58:18.000000000
+0200
@@ -5,7 +5,7 @@
use Carp ();
use vars qw($VERSION);
-$VERSION = "5.813";
+$VERSION = "5.814";
my %form_tags = map {$_ => 1} qw(input textarea button select option);
@@ -114,10 +114,6 @@
require HTML::TokeParser;
my $p = HTML::TokeParser->new(ref($html) ? $html->decoded_content(ref =>
1) : \$html);
die "Failed to create HTML::TokeParser object" unless $p;
- eval {
- # optimization
- $p->report_tags(qw(form input textarea select optgroup option keygen
label button));
- };
my $base_uri = delete $opt{base};
my $verbose = delete $opt{verbose};
@@ -1190,13 +1186,13 @@
sub possible_values
{
my $self = shift;
- map $_->{value}, @{$self->{menu}};
+ map $_->{value}, grep !$_->{disabled}, @{$self->{menu}};
}
sub other_possible_values
{
my $self = shift;
- map $_->{value}, grep !$_->{seen}, @{$self->{menu}};
+ map $_->{value}, grep !$_->{seen} && !$_->{disabled}, @{$self->{menu}};
}
sub value_names {
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/libwww-perl-5.813/lib/HTTP/Message.pm
new/libwww-perl-5.814/lib/HTTP/Message.pm
--- old/libwww-perl-5.813/lib/HTTP/Message.pm 2008-04-16 12:01:16.000000000
+0200
+++ new/libwww-perl-5.814/lib/HTTP/Message.pm 2008-07-25 10:58:30.000000000
+0200
@@ -2,7 +2,7 @@
use strict;
use vars qw($VERSION $AUTOLOAD);
-$VERSION = "5.812";
+$VERSION = "5.814";
require HTTP::Headers;
require Carp;
@@ -301,6 +301,26 @@
}
+sub decodable
+{
+ # should match the Content-Encoding values that decoded_content can deal
with
+ my $self = shift;
+ my @enc;
+ # XXX preferably we should deterine if the modules are available without
loading
+ # them here
+ eval {
+ require Compress::Zlib;
+ push(@enc, "gzip", "x-gzip", "deflate");
+ };
+ eval {
+ require Compess::Bzip2;
+ push(@enc, "x-bzip2");
+ };
+ # we don't care about announcing the 'base64' and 'quoted-printable' stuff
+ return wantarray ? @enc : join(", ", @enc);
+}
+
+
sub as_string
{
my($self, $eol) = @_;
@@ -353,7 +373,10 @@
my $p = HTTP::Message->new($self->remove_content_headers,
$self->content(""));
$self->content_type("multipart/mixed");
- $self->{_parts} = [$p];
+ $self->{_parts} = [];
+ if ($p->headers->header_field_names || $p->content ne "") {
+ push(@{$self->{_parts}}, $p);
+ }
}
elsif (!exists $self->{_parts} || ref($self->{_content}) eq "SCALAR") {
$self->_parts;
@@ -642,6 +665,17 @@
=back
+=item $mess->decodeable
+
+=item HTTP::Message::decodeable()
+
+This returns the encoding identifiers that decoded_content() can
+process. In scalar context returns a comma separated string of
+identifiers.
+
+This value is suitable for initializing the C<Accept-Encoding> request
+header field.
+
=item $mess->parts
=item $mess->parts( @parts )
@@ -656,7 +690,7 @@
If the content type of $msg is not C<multipart/*> or C<message/*> then
this will return the empty list. In scalar context only the first
object is returned. The returned message parts should be regarded as
-are read only (future versions of this library might make it possible
+read-only (future versions of this library might make it possible
to modify the parent by modifying the parts).
If the content type of $msg is C<message/*> then there will only be
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/libwww-perl-5.813/lib/HTTP/Request/Common.pm
new/libwww-perl-5.814/lib/HTTP/Request/Common.pm
--- old/libwww-perl-5.813/lib/HTTP/Request/Common.pm 2008-04-14
10:11:42.000000000 +0200
+++ new/libwww-perl-5.814/lib/HTTP/Request/Common.pm 2008-07-25
10:58:55.000000000 +0200
@@ -8,18 +8,19 @@
require Exporter;
*import = \&Exporter::import;
@EXPORT =qw(GET HEAD PUT POST);
-@EXPORT_OK = qw($DYNAMIC_FILE_UPLOAD);
+@EXPORT_OK = qw($DYNAMIC_FILE_UPLOAD DELETE);
require HTTP::Request;
use Carp();
-$VERSION = "5.811";
+$VERSION = "5.814";
my $CRLF = "\015\012"; # "\r\n" is not portable
sub GET { _simple_req('GET', @_); }
sub HEAD { _simple_req('HEAD', @_); }
sub PUT { _simple_req('PUT' , @_); }
+sub DELETE { _simple_req('DELETE', @_); }
sub POST
{
@@ -352,6 +353,13 @@
"Content". If you really need this you must update the request
returned in a separate statement.
+=item DELETE $url
+
+=item DELETE $url, Header => Value,...
+
+Like GET() but the method in the request is "DELETE". This funciton
+is not exported by default.
+
=item POST $url
=item POST $url, Header => Value,...
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/libwww-perl-5.813/lib/HTTP/Request.pm
new/libwww-perl-5.814/lib/HTTP/Request.pm
--- old/libwww-perl-5.813/lib/HTTP/Request.pm 2008-04-14 10:11:18.000000000
+0200
+++ new/libwww-perl-5.814/lib/HTTP/Request.pm 2008-07-25 10:58:39.000000000
+0200
@@ -2,7 +2,7 @@
require HTTP::Message;
@ISA = qw(HTTP::Message);
-$VERSION = "5.811";
+$VERSION = "5.814";
use strict;
@@ -87,6 +87,12 @@
*url = \&uri; # legacy
+sub accept_decodable
+{
+ my $self = shift;
+ $self->header("Accept-Encoding", scalar($self->decodable));
+}
+
sub as_string
{
my $self = shift;
@@ -176,6 +182,11 @@
details and other similar methods that can be used to access the
headers.
+=item $r->accept_decodable
+
+This will set the C<Accept-Encoding> header to the list of encodings
+that decoded_content() can decode.
+
=item $r->content
=item $r->content( $bytes )
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/libwww-perl-5.813/lib/LWP/UserAgent.pm
new/libwww-perl-5.814/lib/LWP/UserAgent.pm
--- old/libwww-perl-5.813/lib/LWP/UserAgent.pm 2008-06-17 22:27:05.000000000
+0200
+++ new/libwww-perl-5.814/lib/LWP/UserAgent.pm 2008-07-25 10:59:07.000000000
+0200
@@ -5,7 +5,7 @@
require LWP::MemberMixin;
@ISA = qw(LWP::MemberMixin);
-$VERSION = "5.813";
+$VERSION = "5.814";
use HTTP::Request ();
use HTTP::Response ();
@@ -864,7 +864,7 @@
my $response = $ua->get('http://search.cpan.org/');
if ($response->is_success) {
- print $response->content; # or whatever
+ print $response->decoded_content; # or whatever
}
else {
die $response->status_line;
@@ -1018,9 +1018,7 @@
Get/set the headers object that will provide default header values for
any requests sent. By default this will be an empty C<HTTP::Headers>
-object. Example:
-
- $ua->default_headers->push_header('Accept-Language' => "no, en");
+object.
=item $ua->default_header( $field )
@@ -1029,6 +1027,7 @@
This is just a short-cut for $ua->default_headers->header( $field =>
$value ). Example:
+ $ua->default_header('Accept-Encoding' => scalar HTTP::Message::decodable());
$ua->default_header('Accept-Language' => "no, en");
=item $ua->conn_cache
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/libwww-perl-5.813/lib/LWP.pm
new/libwww-perl-5.814/lib/LWP.pm
--- old/libwww-perl-5.813/lib/LWP.pm 2008-06-17 22:26:07.000000000 +0200
+++ new/libwww-perl-5.814/lib/LWP.pm 2008-07-25 10:57:45.000000000 +0200
@@ -1,6 +1,6 @@
package LWP;
-$VERSION = "5.813";
+$VERSION = "5.814";
sub Version { $VERSION; }
require 5.005;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/libwww-perl-5.813/Makefile.PL
new/libwww-perl-5.814/Makefile.PL
--- old/libwww-perl-5.813/Makefile.PL 2008-04-16 12:20:16.000000000 +0200
+++ new/libwww-perl-5.814/Makefile.PL 2008-07-24 00:52:00.000000000 +0200
@@ -1,291 +1,55 @@
-# This -*- perl -*- script writes the Makefile for libwww-perl
+#!perl -w
-require 5.005;
+require 5.006;
use strict;
-use ExtUtils::MakeMaker qw(WriteMakefile prompt);
-use Config qw(%Config);
+use ExtUtils::MakeMaker qw(WriteMakefile);
+use Getopt::Long qw(GetOptions);
-#--- Configuration section ---
-
-my @programs_to_install = qw(lwp-request lwp-mirror lwp-rget lwp-download);
-my @request_aliases = qw(GET HEAD POST);
-
-#--- End Configuration - You should not have to change anything below this line
-
-
-# Allow us to suppress all program installation with the -n (library only)
-# option. This is for those that don't want to mess with the configuration
-# section of this file.
-use Getopt::Std;
-use vars qw($opt_n);
-unless (getopts("n")) {
- die "Usage: $0 [-n]\n";
-}
-@programs_to_install = () if $opt_n || grep /^LIB=/, @ARGV;
-
-# Check if we should try to run tests that talk to ourself
-system(qq("$^X" talk-to-ourself));
-if ($?) {
- print <<EOT;
-
-You appear to have a misconfigured system, so I will disable tests
-that try to talk HTTP to a local server.
-EOT
- unlink("t/CAN_TALK_TO_OURSELF");
-}
-else {
- open(CAN_TALK_TO_OURSELF, ">t/CAN_TALK_TO_OURSELF") || die "Can't create
CAN_TALK_TO_OURSELF: $!";
- close(CAN_TALK_TO_OURSELF);
-}
-
-# Check if we should try to run the live tests
-open(CHANGES, "Changes") || die "Can't open Changes: $!";
-my $release_date;
-while (<CHANGES>) {
- if (/^(\d{4}-\d{2}-\d{2})\D/) {
- $release_date = $1;
- last;
- }
-}
-close(CHANGES);
-die "Can't figure out release date" unless $release_date;
-#print "Release date: $release_date\n";
-
-my $some_time_ago = sprintf "%04d-%02d-%02d",
- sub { ($_[5]+1900, $_[4]+1, $_[3])}->(localtime(time - 45 *
24*60*60));
-if ($some_time_ago lt $release_date) {
- # Check if we have internet connection
- require IO::Socket;
- my $s = IO::Socket::INET->new(PeerAddr => "www.google.com:80",
- Timeout => 10,
- );
- if ($s) {
- # XXX could try to send a GET to it???
- close($s);
-
- print <<EOT;
-
-You appear to be directly connected to the Internet. I have some tests
-that tries to access some sites on the net to verify that the new HTTP/1.1
-support works as it should.
-
-EOT
-
- if (prompt("Do you want to enable these tests?", "y") =~ /^y/i) {
- open(ENABLED, ">t/live/ENABLED") || die "Can't enable: $!";
- close(ENABLED);
-
- # Figure out if the compress lib works and signal that with
- # a file for the test suite to find. We don't want the
- # test script to do this 'require' itself because we want
- # to test that the module loads it on demand as it should.
- eval {
- require Compress::Zlib;
- Compress::Zlib->VERSION(1.10);
- open(ZLIB_OK, ">t/live/ZLIB_OK") || die "Can't create ZLIB_OK:
$!";
- print ZLIB_OK "$Compress::Zlib::VERSION\n";
- close(ZLIB_OK);
- };
- if ($@) {
- #warn $@;
- unlink("t/live/ZLIB_OK");
- }
- }
- else {
- unlink("t/live/ENABLED");
- }
- }
-}
-
-if (@programs_to_install) {
- print <<EOT;
-
-This package comes with some sample programs that I can try
-to install in $Config{installscript}.
-
- Note that you can avoid these questions by passing
- the '-n' option to 'Makefile.PL'.
-
-EOT
- my @tmp;
- for (@programs_to_install) {
- if (prompt("Do you want to install $_?", "y") =~ /^y/) {
- push(@tmp, $_);
- }
- }
- @programs_to_install = @tmp;
-}
-
-if (grep($_ eq 'lwp-request', @programs_to_install) && @request_aliases) {
- print <<EOT;
-
-The lwp-request program will use the name it is invoked with to
-determine what HTTP method to use. I can set up alias for the most
-common HTTP methods. These alias are also installed in
-$Config{installscript}.
-
-EOT
- my @tmp;
- for my $alias (@request_aliases) {
- my $default = "n";
- if (prompt("Do you want to install the $alias alias?", $default) =~
/^y/) {
- push(@tmp, $alias);
- }
- }
- @request_aliases = @tmp;
-}
-else {
- @request_aliases = ();
-}
-
-# Check for non-standard modules that are used by this library.
-$| = 1;
-my $missing_modules = 0;
-
-print "\nChecking for URI...........";
-eval {
- require URI;
- URI->VERSION(1.10);
-};
-if ($@) {
- print " failed\n";
- $missing_modules++;
- print <<EOT;
-$@
-The URI module must be installed. WWW without URIs would not
-be that great :-)
-
-EOT
- sleep(2); # Don't hurry too much
-}
-else {
- print " ok\n";
-}
-print "Checking for HTML::Parser..";
-eval {
- require HTML::HeadParser;
- HTML::Parser->VERSION(3.33);
+GetOptions(\my %opt,
+ 'aliases',
+ 'no-programs|n',
+ 'live-tests',
+) or do {
+ die "Usage: $0 [--aliases] [--no-programs] [--live-tests]\n";
};
-if ($@) {
- print " failed\n";
- $missing_modules++;
- print <<EOT;
-$@
-The HTML::Parser is needed to extract correct base URI information from
-HTML so that we can resolve relative links correctly. The HTML::Form
-module also needs HTML::TokeParser to work.
-EOT
- sleep(2); # Don't hurry too much
-}
-else {
- print " ok\n";
-}
-
-print "Checking for MIME::Base64..";
-eval {
- require MIME::Base64;
- #MIME::Base64->VERSION('2.00');
-};
-if ($@) {
- print " failed\n";
- $missing_modules++;
- print <<EOT;
-$@
-The Base64 encoding is used in authentication headers in HTTP.
+my @prog;
+push(@prog, qw(lwp-request lwp-mirror lwp-rget lwp-download))
+ unless $opt{'no-programs'} || grep /^LIB=/, @ARGV;
-EOT
- sleep(2); # Don't hurry too much
-}
-else {
- print " ok\n";
-}
-
-print "Checking for Net::FTP......";
-eval {
- require Net::FTP;
- Net::FTP->VERSION('2.58');
-};
-if ($@) {
- print " failed\n";
- $missing_modules++;
- print <<EOT;
-$@
-The libwww-perl library normally use the Net::FTP module when
-accessing ftp servers. You would have to install this package or
-configure your application to use a proxy server for making ftp
-requests work. Net::FTP is part of the 'libnet' distribution.
-
-EOT
- sleep(2); # Don't hurry too much
-}
-else {
- print " ok\n";
-}
-
-print "Checking for Digest::MD5 ..";
-eval {
- require Digest::MD5;
-};
-if ($@) {
- print " failed\n";
- $missing_modules++;
- print <<EOT;
-$@
-The Digest::MD5 library is needed if you want to be able use the
-experimental "Digest Access Authentication" scheme. Since very few
-servers implement this authentication scheme, you should normally not
-worry too much about this.
-
-EOT
-}
-else {
- print " ok\n";
-}
-
-print <<EOT if $missing_modules;
-The missing modules can be obtained from CPAN. Visit
-<URL:http://www.perl.com/CPAN/> to find a CPAN site near you.
-
-EOT
-
-print "\n";
-
-if (@request_aliases) {
+if ($opt{'aliases'} && grep(/lwp-request/, @prog)) {
require File::Copy;
- for (@request_aliases) {
+ for (qw(GET HEAD POST)) {
File::Copy::copy("bin/lwp-request", "bin/$_") || die "Can't copy
bin/$_";
- chmod(0755, "bin/$_");
- push(@programs_to_install, $_);
+ chmod(0755, "bin/$_");
+ push(@prog, $_);
}
}
-
-# Ok, now it is time to really generate the Makefile
+system($^X, "talk-to-ourself");
+flag_file("t/CAN_TALK_TO_OURSELF", $? == 0);
+flag_file("t/live/ENABLED", $opt{'live-tests'});
WriteMakefile(
- NAME => 'LWP',
- DISTNAME => 'libwww-perl',
- VERSION_FROM => 'lib/LWP.pm',
- EXE_FILES => [ map "bin/$_", @programs_to_install ],
- PREREQ_PM => { 'URI' => "1.10",
- 'MIME::Base64' => "2.1",
- 'Net::FTP' => "2.58",
- 'HTML::Tagset' => 0,
- 'HTML::Parser' => "3.33",
- 'Digest::MD5' => 0,
- 'Compress::Zlib' => "1.10",
- },
- 'clean' => { FILES => join(" ", map "bin/$_", @request_aliases) },
- 'dist' => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
+ NAME => 'LWP',
+ DISTNAME => 'libwww-perl',
+ VERSION_FROM => 'lib/LWP.pm',
+ EXE_FILES => [ map "bin/$_", @prog ],
+ PREREQ_PM => {
+ 'URI' => "1.10",
+ 'MIME::Base64' => "2.1",
+ 'Net::FTP' => "2.58",
+ 'HTML::Tagset' => 0,
+ 'HTML::Parser' => "3.33",
+ 'Digest::MD5' => 0,
+ 'Compress::Zlib' => "1.10",
+ },
+ clean => { FILES => join(" ", map "bin/$_", grep /^[A-Z]+$/, @prog) },
);
+exit;
-
-package MY;
-
-# What happens when we say 'make test'
-sub test
+sub MY::test
{
q(
TEST_VERBOSE=0
@@ -297,22 +61,12 @@
}
-# Determine things that should *not* be installed
-sub libscan
-{
- my($self, $path) = @_;
- return '' if $path =~ m/\.(pl|dtd|sgml)$/;
- return '' if $path =~ m:\bCVS/:;
- return '' if $path =~ m/~$/;
- $path;
-}
-
-# Pass libwww-perl version number to pod2man
-sub manifypods
-{
- my $self = shift;
- my $ver = $self->{VERSION} || "";
- local($_) = $self->SUPER::manifypods(@_);
- s/pod2man\s*$/pod2man --release libwww-perl-$ver/m;
- $_;
+sub flag_file {
+ my($file, $create) = @_;
+ if ($create) {
+ open(my $fh, ">", $file) || die "Can't create $file: $!";
+ }
+ else {
+ unlink($file);
+ }
}
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/libwww-perl-5.813/MANIFEST
new/libwww-perl-5.814/MANIFEST
--- old/libwww-perl-5.813/MANIFEST 2008-06-17 22:34:49.000000000 +0200
+++ new/libwww-perl-5.814/MANIFEST 2008-07-25 11:06:43.000000000 +0200
@@ -80,6 +80,7 @@
t/base/message-parts.t Test HTTP::Message parts method
t/base/negotiate.t Test HTTP::Negotiation module
t/base/protocols.t Test protocol methods of LWP::UserAgent
+t/base/request.t Test additional HTTP::Request methods
t/base/response.t Test additional HTTP::Response methods
t/base/status.t Test HTTP::Status module
t/base/ua.t Basic LWP::UserAgent tests
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/libwww-perl-5.813/META.yml
new/libwww-perl-5.814/META.yml
--- old/libwww-perl-5.813/META.yml 2008-06-17 22:34:49.000000000 +0200
+++ new/libwww-perl-5.814/META.yml 2008-07-25 11:06:43.000000000 +0200
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: libwww-perl
-version: 5.813
+version: 5.814
abstract: ~
license: ~
author: ~
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/libwww-perl-5.813/README new/libwww-perl-5.814/README
--- old/libwww-perl-5.813/README 2008-04-16 12:20:48.000000000 +0200
+++ new/libwww-perl-5.814/README 2008-07-23 17:05:06.000000000 +0200
@@ -10,44 +10,28 @@
contain modules that are of more general use and even classes that
help you implement simple HTTP servers.
-There are actually two versions of libwww-perl: one for Perl4, and one
-for Perl5. Both have a similar architecture, loosely based on the CERN
-Library of Common Code (nowadays known as 'w3c-libwww').
-
-The Perl4 version was maintained by Roy Fielding, and was the
-basis for tools such as MOMSpider. The perl4 version of libwww-perl
-and much more information about its libraries can still be found at:
-http://www.ics.uci.edu/pub/websoft/libwww-perl/
-
-The Perl5 version (this package) is a complete rewrite for Perl5: the
-code is organized in Modules, provides an Object Oriented API, and
-offers lots of extended functionality.
-
-
PREREQUISITES
In order to install and use this package you will need Perl version
-5.005 or better. Some modules within this package depend on other
+5.6 or better. Some modules within this package depend on other
packages that are distributed separately from Perl. We recommend that
you have the following packages installed before you install
libwww-perl:
URI
MIME-Base64
+ HTML-Tagset
HTML-Parser
libnet
Digest-MD5
Compress-Zlib
-These packages should be available on CPAN (see below).
-
If you want to access sites using the https protocol, then you need to
install the Crypt::SSLeay or the IO::Socket::SSL module. The
README.SSL file will tell you more about how libwww-perl supports SSL.
-
INSTALLATION
You install libwww-perl using the normal perl module distribution drill:
@@ -57,29 +41,16 @@
make test
make install
-You can edit the configuration section of Makefile.PL to select which
-programs to install in addition to the library itself. If you don't
-want to install any programs (only the library files) and don't want
-to mess with the Makefile.PL then pass the '-n' option to Makefile.PL:
-
- perl Makefile.PL -n
-
-If you want to install a private copy of libwww-perl in your home
-directory, then you should try to produce the initial Makefile with
-something like this command:
-
- perl Makefile.PL LIB=~/perl
-
-The Makefile.PL program will start out by checking your perl
-installation for a few packages that are recommended to be installed
-together with libwww-perl.
+If you don't want to install any programs (only the library files) then
+pass the '--no-programs' option to Makefile.PL:
+ perl Makefile.PL --no-programs
DOCUMENTATION
-See ./lib/LWP.pm for an overview of the library. See ./ChangeLog for
-recent changes.
+See the lib/LWP.pm file for an overview of the library. See the
+Changes file for recent changes.
POD style documentation is included in all modules and scripts. These
are normally converted to manual pages and installed as part of the
@@ -88,18 +59,11 @@
directly.
-
SUPPORT
-Questions about how to use this library should be directed to the
-comp.lang.perl.modules USENET Newsgroup. Bug reports and suggestions
-for improvements can be sent to the <libwww@xxxxxxxx> mailing
-list. This mailing list is also the place for general discussions and
-development of the libwww-perl package.
-
-You can join the mailing list by sending a message to
-<libwww-subscribe@xxxxxxxx>.
- ^^^^^^^^^^
+Bug reports and suggestions for improvements can be sent to the
+<libwww@xxxxxxxx> mailing list. This mailing list is also the place
+for general discussions and development of the libwww-perl package.
AVAILABILITY
@@ -118,7 +82,6 @@
http://gitorious.org/projects/libwww-perl
-
COPYRIGHT
� 1995-2008 Gisle Aas. All rights reserved.
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/libwww-perl-5.813/t/base/common-req.t
new/libwww-perl-5.814/t/base/common-req.t
--- old/libwww-perl-5.813/t/base/common-req.t 2008-04-09 11:10:01.000000000
+0200
+++ new/libwww-perl-5.814/t/base/common-req.t 2008-07-24 00:42:37.000000000
+0200
@@ -1,37 +1,39 @@
-print "1..22\n";
+#perl -w
+
+use Test;
+plan tests => 51;
use HTTP::Request::Common;
$r = GET 'http://www.sn.no/';
print $r->as_string;
-print "not " unless $r->method eq "GET" and $r->url eq "http://www.sn.no/";;
-print "ok 1\n";
+ok($r->method, "GET");
+ok($r->url, "http://www.sn.no/";);
$r = HEAD "http://www.sn.no/";,
If_Match => 'abc',
From => 'aas@xxxxx';
print $r->as_string;
-print "not " unless $r->method eq "HEAD" and $r->url->eq("http://www.sn.no";);
-print "ok 2\n";
+ok($r->method, "HEAD");
+ok($r->url->eq("http://www.sn.no";));
-print "not " unless $r->header('If-Match') eq "abc" and $r->header("from") eq
"aas\@sn.no";
-print "ok 3\n";
+ok($r->header('If-Match'), "abc");
+ok($r->header("from"), "aas\@sn.no");
$r = PUT "http://www.sn.no";,
Content => 'foo';
print $r->as_string, "\n";
-print "not " unless $r->method eq "PUT" and $r->uri->host eq "www.sn.no";
-print "ok 4\n";
+ok($r->method, "PUT");
+ok($r->uri->host, "www.sn.no");
-print "not " if defined($r->header("Content"));
-print "ok 5\n";
+ok(!defined($r->header("Content")));
-print "not " unless ${$r->content_ref} eq "foo" and
- $r->content eq "foo" and $r->content_length == 3;
-print "ok 6\n";
+ok(${$r->content_ref}, "foo");
+ok($r->content, "foo");
+ok($r->content_length, 3);
#--- Test POST requests ---
@@ -43,26 +45,22 @@
bar => 'foo';
print $r->as_string, "\n";
-print "not " unless $r->method eq "POST" and
- $r->content_type eq "application/x-www-form-urlencoded" and
- $r->content_length == 58 and
- $r->header("bar") eq "foo";
-print "ok 7\n";
-
-print "not " unless $r->content eq
"foo=bar%3Bbaz&baz=a&baz=b&baz=c&foo=zoo%3D%26&space+=+%2B+";
-print "ok 8\n";
+ok($r->method, "POST");
+ok($r->content_type, "application/x-www-form-urlencoded");
+ok($r->content_length, 58);
+ok($r->header("bar"), "foo");
+ok($r->content, "foo=bar%3Bbaz&baz=a&baz=b&baz=c&foo=zoo%3D%26&space+=+%2B+");
$r = POST "mailto:gisle\@aas.no";,
Subject => "Heisan",
Content_Type => "text/plain",
Content => "Howdy\n";
-print $r->as_string;
+#print $r->as_string;
-print "not " unless $r->method eq "POST" and
- $r->header("Subject") eq "Heisan" and
- $r->content eq "Howdy\n" and
- $r->content_type eq "text/plain";
-print "ok 9\n";
+ok($r->method, "POST");
+ok($r->header("Subject"), "Heisan");
+ok($r->content, "Howdy\n");
+ok($r->content_type, "text/plain");
#
# POST for File upload
@@ -80,15 +78,14 @@
born => '1964',
file => [$file],
];
-print $r->as_string;
+#print $r->as_string;
unlink($file) or warn "Can't unlink $file: $!";
-print "not " unless $r->method eq "POST" and
- $r->url->path eq "/survey.cgi" and
- $r->content_type eq "multipart/form-data" and
- $r->header(Content_type) =~ /boundary="?([^"]+)"?/;
-print "ok 10\n";
+ok($r->method, "POST");
+ok($r->url->path, "/survey.cgi");
+ok($r->content_type, "multipart/form-data");
+ok($r->header(Content_type) =~ /boundary="?([^"]+)"?/);
$boundary = $1;
$c = $r->content;
@@ -96,54 +93,40 @@
@c = split(/--\Q$boundary/, $c);
print "$c[5]\n";
-print "not " unless @c == 7 and $c[6] =~ /^--\n/; # 5 parts + header & trailer
-print "ok 11\n";
+ok(@c == 7 and $c[6] =~ /^--\n/); # 5 parts + header & trailer
+
+ok($c[2] =~ /^Content-Disposition:\s*form-data;\s*name="email"/m);
+ok($c[2] =~ /^gisle\@aas.no$/m);
-print "not " unless $c[2] =~
/^Content-Disposition:\s*form-data;\s*name="email"/m and
- $c[2] =~ /^gisle\@aas.no$/m;
-print "ok 12\n";
-
-print "not " unless $c[5] =~
/^Content-Disposition:\s*form-data;\s*name="file";\s*filename="$file"/m and
- $c[5] =~ /^Content-Type:\s*text\/plain$/m and
- $c[5] =~ /^foo\nbar\nbaz/m;
-print "ok 13\n";
+ok($c[5] =~
/^Content-Disposition:\s*form-data;\s*name="file";\s*filename="$file"/m);
+ok($c[5] =~ /^Content-Type:\s*text\/plain$/m);
+ok($c[5] =~ /^foo\nbar\nbaz/m);
$r = POST 'http://www.perl.org/survey.cgi',
[ file => [ undef, "xxy\"", Content_type => "text/html", Content =>
"<h1>Hello, world!</h1>" ]],
Content_type => 'multipart/form-data';
print $r->as_string;
-if($^O eq "MacOS") {
- print "not " unless $r->content =~
/^--\S+\015\012Content-Disposition:\s*form-data;\s*name="file";\s*filename="xxy\\"/m
and
- $r->content =~ /^\012Content-Type: text\/html/m and
- $r->content =~ /^\012<h1>Hello, world/m;
-}
-else {
- print "not " unless $r->content =~
/^--\S+\015\012Content-Disposition:\s*form-data;\s*name="file";\s*filename="xxy\\"/m
and
- $r->content =~ /^Content-Type: text\/html/m and
- $r->content =~ /^<h1>Hello, world/m;
-}
-print "ok 14\n";
-
+ok($r->content =~
/^--\S+\015\012Content-Disposition:\s*form-data;\s*name="file";\s*filename="xxy\\"/m);
+ok($r->content =~ /^Content-Type: text\/html/m);
+ok($r->content =~ /^<h1>Hello, world/m);
$r = POST 'http://www.perl.org/survey.cgi',
Content_type => 'multipart/form-data',
Content => [ file => [ undef, undef, Content => "foo"]];
-print $r->as_string;
+#print $r->as_string;
-print "not " if $r->content =~ /filename=/;
-print "ok 15\n";
+ok($r->content !~ /filename=/);
# The POST routine can now also take a hash reference.
my %hash = (foo => 42, bar => 24);
$r = POST 'http://www.perl.org/survey.cgi', \%hash;
-print $r->as_string, "\n";
-print "not " unless $r->content =~ /foo=42/ &&
- $r->content =~ /bar=24/ &&
- $r->content_type eq "application/x-www-form-urlencoded" &&
- $r->content_length == 13;
-print "ok 16\n";
+#print $r->as_string, "\n";
+ok($r->content =~ /foo=42/);
+ok($r->content =~ /bar=24/);
+ok($r->content_type, "application/x-www-form-urlencoded");
+ok($r->content_length, 13);
#
@@ -169,16 +152,14 @@
];
print $r->as_string, "\n";
-print "not " unless $r->method eq "POST" and
- $r->url->path eq "/survey.cgi" and
- $r->content_type eq "multipart/form-data" and
- $r->header(Content_type) =~ /boundary="?([^"]+)"?/ and
- ref($r->content) eq "CODE";
-print "ok 17\n";
+ok($r->method, "POST");
+ok($r->url->path, "/survey.cgi");
+ok($r->content_type, "multipart/form-data");
+ok($r->header(Content_type) =~ /boundary="?([^"]+)"?/);
$boundary = $1;
+ok(ref($r->content), "CODE");
-print "not " unless length($boundary) > 10;
-print "ok 18\n";
+ok(length($boundary) > 10);
$code = $r->content;
my $chunk;
@@ -194,12 +175,11 @@
print int(@chunks), " chunks, total size is ", length($_), " bytes\n";
# should be close to expected size and number of chunks
-print "not " unless abs(@chunks - 15 < 3) and
- abs(length($_) - 26589) < 20;
-print "ok 19\n";
+ok(abs(@chunks - 15 < 3));
+ok(abs(length($_) - 26589) < 20);
$r = POST 'http://www.example.com';
-print "not " unless $r->as_string eq <<EOT; print "ok 20\n";
+ok($r->as_string, <<EOT);
POST http://www.example.com
Content-Length: 0
Content-Type: application/x-www-form-urlencoded
@@ -207,7 +187,7 @@
EOT
$r = POST 'http://www.example.com', Content_Type => 'form-data', Content => [];
-print "not " unless $r->as_string eq <<EOT; print "ok 21\n";
+ok($r->as_string, <<EOT);
POST http://www.example.com
Content-Length: 0
Content-Type: multipart/form-data; boundary=none
@@ -216,10 +196,12 @@
$r = POST 'http://www.example.com', Content_Type => 'form-data';
#print $r->as_string;
-print "not " unless $r->as_string eq <<EOT; print "ok 22\n";
+ok($r->as_string, <<EOT);
POST http://www.example.com
Content-Length: 0
Content-Type: multipart/form-data
EOT
+$r = HTTP::Request::Common::DELETE 'http://www.example.com';
+ok($r->method, "DELETE");
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/libwww-perl-5.813/t/base/listing.t
new/libwww-perl-5.814/t/base/listing.t
--- old/libwww-perl-5.813/t/base/listing.t 2008-04-07 14:57:58.000000000
+0200
+++ new/libwww-perl-5.814/t/base/listing.t 2008-07-23 21:12:46.000000000
+0200
@@ -1,4 +1,4 @@
-print "1..6\n";
+print "1..10\n";
use File::Listing;
@@ -84,3 +84,21 @@
$mode == 0100644 || print "not ";
print "ok 6\n";
+
+@dir = parse_dir(<<'EOT');
+drwxr-xr-x 21 root root 704 2007-03-22 21:48 dir
+EOT
+
+print "not " unless @dir == 1;
+print "ok 7\n";
+
+print "not " unless $dir[0][0] eq "dir";
+print "ok 8\n";
+
+print "not " unless $dir[0][1] eq "d";
+print "ok 9\n";
+
+$timestring = scalar(localtime($dir[0][3]));
+print "# $timestring\n";
+print "not " unless $timestring =~ /^Thu Mar 22 21:48/;
+print "ok 10\n";
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/libwww-perl-5.813/t/base/message.t
new/libwww-perl-5.814/t/base/message.t
--- old/libwww-perl-5.813/t/base/message.t 2008-04-16 12:12:41.000000000
+0200
+++ new/libwww-perl-5.814/t/base/message.t 2008-07-16 12:58:13.000000000
+0200
@@ -3,7 +3,7 @@
use strict;
use Test qw(plan ok skip);
-plan tests => 102;
+plan tests => 104;
require HTTP::Message;
use Config qw(%Config);
@@ -281,6 +281,22 @@
EOT
$m = HTTP::Message->new;
+$m->add_part(HTTP::Message->new([a=>[1..3]], "a"));
+$str = $m->as_string;
+$str =~ s/\r/<CR>/g;
+ok($str, <<EOT);
+Content-Type: multipart/mixed; boundary=xYzZY
+
+--xYzZY<CR>
+A: 1<CR>
+A: 2<CR>
+A: 3<CR>
+<CR>
+a<CR>
+--xYzZY--<CR>
+EOT
+
+$m = HTTP::Message->new;
$m->content_ref(\my $foo);
ok($m->content_ref, \$foo);
$foo = "foo";
@@ -346,6 +362,8 @@
ok($@ || "", "");
ok($m->content, "H4sICFWAq0ECA3h4eAB7v3u/R6ZCSUZqUarCoxm7uAAZKHXiEAAAAA==\n");
+ok(grep { $_ eq "gzip" } $m->decodable);
+
my $tmp = MIME::Base64::decode($m->content);
$m->content($tmp);
$m->header("Content-Encoding", "gzip");
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/libwww-perl-5.813/t/base/request.t
new/libwww-perl-5.814/t/base/request.t
--- old/libwww-perl-5.813/t/base/request.t 1970-01-01 01:00:00.000000000
+0100
+++ new/libwww-perl-5.814/t/base/request.t 2008-07-15 12:24:15.000000000
+0200
@@ -0,0 +1,26 @@
+# Test extra HTTP::Request methods. Basic operation is tested in the
+# message.t test suite.
+
+use strict;
+
+use Test;
+plan tests => 7;
+
+use HTTP::Request;
+
+my $req = HTTP::Request->new(GET => "http://www.example.com";);
+$req->accept_decodable;
+
+ok($req->method, "GET");
+ok($req->uri, "http://www.example.com";);
+ok($req->header("Accept-Encoding") =~ /\bgzip\b/); # assuming Compress::Zlib
is there
+
+($_ = $req->as_string) =~ s/^/# /gm;
+print;
+
+ok($req->method("DELETE"), "GET");
+ok($req->method, "DELETE");
+
+ok($req->uri("http:"), "http://www.example.com";);
+ok($req->uri, "http:");
+
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/libwww-perl-5.813/t/html/form.t
new/libwww-perl-5.814/t/html/form.t
--- old/libwww-perl-5.813/t/html/form.t 2008-04-09 10:23:49.000000000 +0200
+++ new/libwww-perl-5.814/t/html/form.t 2008-07-23 20:32:09.000000000 +0200
@@ -3,7 +3,7 @@
use strict;
use Test qw(plan ok);
-plan tests => 124;
+plan tests => 127;
use HTML::Form;
@@ -535,3 +535,48 @@
ok(join(":", $f->find_input("r2")->value_names), "two");
ok(join(":", $f->find_input("r3")->value_names), "nested");
ok(join(":", $f->find_input("r4")->value_names), "before and after");
+
+$f = HTML::Form->parse(<<EOT, "http://www.example.com";);
+<form>
+ <table>
+ <TR>
+ <TD align="left" colspan="2">
+ Keep me informed on the progress of this
election
+ <INPUT type="checkbox" id="keep_informed" name="keep_informed"
value="yes" checked>
+ </TD>
+ </TR>
+ <TR>
+ <TD align=left colspan=2>
+ <BR><B>The place you are registered to vote:</B>
+ </TD>
+ </TR>
+ <TR>
+ <TD valign="middle" height="2" align="right">
+ <A name="Note1back">County or Parish</A>
+ </TD>
+ <TD align="left">
+ <INPUT type="text" id="reg_county" size="40" name="reg_county" value="">
+ </TD>
+ <TD align="left" width="10">
+ <A href="#Note2" class="c2" tabindex="-1">Note 2</A>
+ </TD>
+ </TR>
+ </table>
+</form>
+EOT
+ok(join(":", $f->find_input("keep_informed")->value_names), "off:");
+
+$f = HTML::Form->parse(<<EOT, "http://www.example.com";);
+<form action="test" method="post">
+<select name="test">
+<option value="1">One</option>
+<option value="2">Two</option>
+<option disabled="disabled" value="3">Three</option>
+</select>
+<input type="submit" name="submit" value="Go">
+</form>
+</body>
+</html>
+EOT
+ok(join(":", $f->find_input("test")->possible_values), "1:2");
+ok(join(":", $f->find_input("test")->other_possible_values), "2");
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/libwww-perl-5.813/t/live/jigsaw-te.t
new/libwww-perl-5.814/t/live/jigsaw-te.t
--- old/libwww-perl-5.813/t/live/jigsaw-te.t 2008-04-07 14:57:58.000000000
+0200
+++ new/libwww-perl-5.814/t/live/jigsaw-te.t 2008-07-23 14:40:41.000000000
+0200
@@ -1,20 +1,5 @@
#!perl -w
-my $zlib_ok;
-for (("", "live/", "t/live/")) {
- if (-f $_ . "ZLIB_OK") {
- $zlib_ok++;
- last;
- }
-}
-
-unless ($zlib_ok) {
- print "1..0\n";
- print "Apparently no working ZLIB installed\n";
- exit;
-}
-
-
print "1..4\n";
use strict;
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
---------------------------------------------------------------------
To unsubscribe, e-mail: opensuse-commit+unsubscribe@xxxxxxxxxxxx
For additional commands, e-mail: opensuse-commit+help@xxxxxxxxxxxx
| < Previous | Next > |