Hello community,
here is the log from the commit of package perl-libwww-perl
checked in at Mon Oct 8 12:27:45 CEST 2007.
--------
--- perl-libwww-perl/perl-libwww-perl.changes 2007-07-25 15:44:56.000000000 +0200
+++ /mounts/work_src_done/STABLE/perl-libwww-perl/perl-libwww-perl.changes 2007-10-08 10:06:33.000000000 +0200
@@ -1,0 +2,7 @@
+Mon Oct 8 10:05:48 CEST 2007 - anicka@suse.cz
+
+- update to 5.808
+ * Get rid of t/live/validator test. Too much JavaScript madness
+ for it to be a sane LWP test.
+ * bugfixes
+-------------------------------------------------------------------
Old:
----
libwww-perl-5.806.tar.bz2
New:
----
libwww-perl-5.808.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-libwww-perl.spec ++++++
--- /var/tmp/diff_new_pack.v10770/_old 2007-10-08 12:27:39.000000000 +0200
+++ /var/tmp/diff_new_pack.v10770/_new 2007-10-08 12:27:39.000000000 +0200
@@ -1,5 +1,5 @@
#
-# spec file for package perl-libwww-perl (Version 5.806)
+# spec file for package perl-libwww-perl (Version 5.808)
#
# Copyright (c) 2007 SUSE LINUX Products GmbH, Nuernberg, Germany.
# This file and all modifications and additions to the pristine
@@ -12,7 +12,7 @@
Name: perl-libwww-perl
BuildRequires: perl-Compress-Zlib perl-HTML-Parser perl-URI
-Version: 5.806
+Version: 5.808
Release: 1
Provides: libwww-perl
Provides: perl_lw3
@@ -20,10 +20,10 @@
Requires: perl-HTML-Parser perl-HTML-Tagset perl-URI
Requires: perl = %{perl_version}
Recommends: perl-Crypt-SSLeay
-Autoreqprov: on
+AutoReqProv: on
Group: Development/Libraries/Perl
License: Artistic License
-URL: http://www.cpan.org/modules/by-module/WWW/
+Url: http://www.cpan.org/modules/by-module/WWW/
Summary: Modules Providing a World Wide Web API
Source: libwww-perl-%{version}.tar.bz2
BuildRoot: %{_tmppath}/%{name}-%{version}-build
@@ -49,7 +49,6 @@
%check
#disable test that require network connection
-mv t/live/validator.t t/live/validator.tt
mv t/live/jigsaw-chunk.t t/live/jigsaw-chunk.tt
mv t/live/jigsaw-md5.t t/live/jigsaw-md5.tt
mv t/live/jigsaw-md5-get.t t/live/jigsaw-md5-get.tt
@@ -80,8 +79,12 @@
%{perl_vendorarch}/auto/LWP
%{_bindir}/*
/var/adm/perl-modules/%{name}
-
%changelog
+* Mon Oct 08 2007 - anicka@suse.cz
+- update to 5.808
+ * Get rid of t/live/validator test. Too much JavaScript madness
+ for it to be a sane LWP test.
+ * bugfixes
* Wed Jul 25 2007 - anicka@suse.cz
- update to 5.806
* Added progress callback to LWP::UserAgent.
++++++ libwww-perl-5.806.tar.bz2 -> libwww-perl-5.808.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/libwww-perl-5.806/Changes new/libwww-perl-5.808/Changes
--- old/libwww-perl-5.806/Changes 2007-07-19 23:25:26.000000000 +0200
+++ new/libwww-perl-5.808/Changes 2007-08-05 15:20:48.000000000 +0200
@@ -1,4 +1,23 @@
-2007-07-17 Gisle Aas
+2007-08-05 Gisle Aas
+
+ Release 5.808
+
+ Get rid of t/live/validator test. Too much JavaScript madness
+ for it to be a sane LWP test.
+
+
+
+2007-07-31 Gisle Aas
+
+ Release 5.807
+
+ Apply patch correction from CPAN RT #26152
+
+ More laxed t/live/validator test.
+
+
+
+2007-07-19 Gisle Aas
Release 5.806
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/libwww-perl-5.806/lib/LWP/Protocol/https10.pm new/libwww-perl-5.808/lib/LWP/Protocol/https10.pm
--- old/libwww-perl-5.806/lib/LWP/Protocol/https10.pm 2007-07-19 22:26:11.000000000 +0200
+++ new/libwww-perl-5.808/lib/LWP/Protocol/https10.pm 2007-07-20 08:16:58.000000000 +0200
@@ -1,5 +1,5 @@
#
-# $Id: https10.pm,v 1.3 2007/07/19 20:26:11 gisle Exp $
+# $Id: https10.pm,v 1.4 2007/07/20 06:16:58 gisle Exp $
use strict;
@@ -8,7 +8,7 @@
# Figure out which SSL implementation to use
use vars qw($SSL_CLASS);
if ($Net::SSL::VERSION) {
- $SSL_SOCKET_CLASS = "Net::SSL";
+ $SSL_CLASS = "Net::SSL";
}
elsif ($IO::Socket::SSL::VERSION) {
$SSL_CLASS = "IO::Socket::SSL"; # it was already loaded
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/libwww-perl-5.806/lib/LWP.pm new/libwww-perl-5.808/lib/LWP.pm
--- old/libwww-perl-5.806/lib/LWP.pm 2007-07-19 22:54:08.000000000 +0200
+++ new/libwww-perl-5.808/lib/LWP.pm 2007-08-05 15:23:32.000000000 +0200
@@ -1,9 +1,9 @@
#
-# $Id: LWP.pm,v 1.150 2007/07/19 20:54:08 gisle Exp $
+# $Id: LWP.pm,v 1.152 2007/08/05 13:23:32 gisle Exp $
package LWP;
-$VERSION = "5.806";
+$VERSION = "5.808";
sub Version { $VERSION; }
require 5.005;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/libwww-perl-5.806/MANIFEST new/libwww-perl-5.808/MANIFEST
--- old/libwww-perl-5.806/MANIFEST 2007-07-19 23:08:53.000000000 +0200
+++ new/libwww-perl-5.808/MANIFEST 2007-08-05 15:19:19.000000000 +0200
@@ -95,7 +95,6 @@
t/live/jigsaw-neg-get.t
t/live/jigsaw-neg.t
t/live/jigsaw-te.t
-t/live/validator.t
t/local/autoload-get.t
t/local/autoload.t Test autoloading of LWP::Protocol modules
t/local/chunked.t
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/libwww-perl-5.806/t/live/validator.t new/libwww-perl-5.808/t/live/validator.t
--- old/libwww-perl-5.806/t/live/validator.t 2003-01-01 17:46:05.000000000 +0100
+++ new/libwww-perl-5.808/t/live/validator.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,53 +0,0 @@
-print "1..2\n";
-
-use strict;
-
-use LWP::UserAgent;
-use HTML::Form;
-
-my $uri = "http://validator.w3.org/file-upload.html";
-
-my $ua = LWP::UserAgent->new(keep_alive => 1);
-my($req, $res);
-
-$req = HTTP::Request->new(GET => $uri);
-$res = $ua->request($req);
-
-my $f = HTML::Form->parse($res->content, $res->base);
-
-#$f->dump;
-
-my $file = <<'EOT';
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
-<html>
-<meta http-equiv="Content-Type" content="text/html; charset=US-ASCII">
-<title>Hi</title>
-<h1>Heading</h1>
-Some text.
-EOT
-
-#$file .= "<b>Hi</b>\n" x 20000;
-$file .= "</html>\n";
-
-my $upload = $f->find_input("uploaded_file");
-$upload->filename("x.html");
-$upload->content($file);
-
-$req = $f->click;
-#print $req->as_string;
-$req->header(Connection => "close");
-
-$res = $ua->request($req);
-#print $res->as_string;
-
-unless ($res->content =~ /found to be valid/) {
- print $res->as_string;
- print "\nnot ";
-}
-print "ok 1\n";
-
-#$res->content(""); print $res->as_string;
-
-print "not " unless $res->header("Client-Response-Num") == 2 &&
- $res->header("Connection") eq "close";
-print "ok 2\n";
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/libwww-perl-5.806/t/local/chunked.t new/libwww-perl-5.808/t/local/chunked.t
--- old/libwww-perl-5.806/t/local/chunked.t 2005-12-13 11:21:42.000000000 +0100
+++ new/libwww-perl-5.808/t/local/chunked.t 2007-07-31 15:17:26.000000000 +0200
@@ -5,7 +5,7 @@
use HTTP::Daemon;
use Test::More;
-use Time::HiRes qw(sleep);
+# use Time::HiRes qw(sleep);
our $CRLF;
use Socket qw($CRLF);
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
---------------------------------------------------------------------
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org