commit perl-libwww-perl for openSUSE:Factory
Hello community,
here is the log from the commit of package perl-libwww-perl for openSUSE:Factory
checked in at Wed Apr 29 00:55:28 CEST 2009.
--------
--- perl-libwww-perl/perl-libwww-perl.changes 2009-02-23 16:19:58.000000000 +0100
+++ perl-libwww-perl/perl-libwww-perl.changes 2009-04-28 13:45:56.000000000 +0200
@@ -1,0 +2,13 @@
+Tue Apr 28 13:37:15 CEST 2009 - anicka@suse.cz
+
+- update to 5.826
+ * Avoid returning stale Content-Type header after message parts
+ have been updated
+ * Don't let content saved to file be affected by the $\ setting
+ * Issues around multipart boundaries
+ * Ignore random _proxy env variables, allow only valid schemes
+ * README.SSL is not anymore available at the linpro.no URL.
+ * Make LWP::UserAgent constructor honor the default_headers
+ option
+
+-------------------------------------------------------------------
calling whatdependson for head-i586
Old:
----
libwww-perl-5.825.tar.bz2
New:
----
libwww-perl-5.826.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-libwww-perl.spec ++++++
--- /var/tmp/diff_new_pack.z22165/_old 2009-04-29 00:53:56.000000000 +0200
+++ /var/tmp/diff_new_pack.z22165/_new 2009-04-29 00:53:56.000000000 +0200
@@ -1,5 +1,5 @@
#
-# spec file for package perl-libwww-perl (Version 5.825)
+# spec file for package perl-libwww-perl (Version 5.826)
#
# Copyright (c) 2009 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
@@ -20,7 +20,7 @@
Name: perl-libwww-perl
BuildRequires: perl-Compress-Zlib perl-HTML-Parser perl-URI
-Version: 5.825
+Version: 5.826
Release: 1
Provides: libwww-perl
Provides: perl_lw3
@@ -88,6 +88,16 @@
/var/adm/perl-modules/%{name}
%changelog
+* Tue Apr 28 2009 anicka@suse.cz
+- update to 5.826
+ * Avoid returning stale Content-Type header after message parts
+ have been updated
+ * Don't let content saved to file be affected by the $\ setting
+ * Issues around multipart boundaries
+ * Ignore random _proxy env variables, allow only valid schemes
+ * README.SSL is not anymore available at the linpro.no URL.
+ * Make LWP::UserAgent constructor honor the default_headers
+ option
* Mon Feb 23 2009 anicka@suse.cz
- update to 5.825
* Fixup test failure with perl-5.8.8 and older; qr/$/m doesn't work
++++++ libwww-perl-5.825.tar.bz2 -> libwww-perl-5.826.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/libwww-perl-5.825/Changes new/libwww-perl-5.826/Changes
--- old/libwww-perl-5.825/Changes 2009-02-16 10:55:29.000000000 +0100
+++ new/libwww-perl-5.826/Changes 2009-04-24 22:24:13.000000000 +0200
@@ -1,4 +1,24 @@
_______________________________________________________________________________
+2009-04-24 Release 5.826
+
+Gisle Aas (2):
+ Avoid returning stale Content-Type header after message parts have been updated
+ Don't let content saved to file be affected by the $\ setting
+
+Graeme Thompson (1):
+ Issues around multipart boundaries [RT#28970]
+
+Mike Schilli (1):
+ Ignore random _proxy env variables, allow only valid schemes
+
+Slaven Rezic (1):
+ README.SSL is not anymore available at the linpro.no URL.
+
+john9art (1):
+ Make LWP::UserAgent constructor honor the default_headers option [RT#16637]
+
+
+_______________________________________________________________________________
2009-02-16 Release 5.825
Zefram (1):
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/libwww-perl-5.825/lib/HTTP/Daemon.pm new/libwww-perl-5.826/lib/HTTP/Daemon.pm
--- old/libwww-perl-5.825/lib/HTTP/Daemon.pm 2008-11-25 21:07:09.000000000 +0100
+++ new/libwww-perl-5.826/lib/HTTP/Daemon.pm 2009-04-24 22:32:46.000000000 +0200
@@ -3,7 +3,7 @@
use strict;
use vars qw($VERSION @ISA $PROTO $DEBUG);
-$VERSION = "5.818";
+$VERSION = "5.826";
use IO::Socket qw(AF_INET INADDR_ANY inet_ntoa);
@ISA=qw(IO::Socket::INET);
@@ -278,21 +278,6 @@
return;
}
- elsif ($ct && lc($ct) =~ m/^multipart\/\w+\s*;.*boundary\s*=\s*(\w+)/) {
- # Handle multipart content type
- my $boundary = "$CRLF--$1--$CRLF";
- my $index;
- while (1) {
- $index = index($buf, $boundary);
- last if $index >= 0;
- # end marker not yet found
- return unless $self->_need_more($buf, $timeout, $fdset);
- }
- $index += length($boundary);
- $r->content(substr($buf, 0, $index));
- substr($buf, 0, $index) = '';
-
- }
elsif ($len) {
# Plain body specified by "Content-Length"
my $missing = $len - length($buf);
@@ -311,6 +296,21 @@
$buf='';
}
}
+ elsif ($ct && $ct =~ m/^multipart\/\w+\s*;.*boundary\s*=\s*("?)(\w+)\1/i) {
+ # Handle multipart content type
+ my $boundary = "$CRLF--$2--";
+ my $index;
+ while (1) {
+ $index = index($buf, $boundary);
+ last if $index >= 0;
+ # end marker not yet found
+ return unless $self->_need_more($buf, $timeout, $fdset);
+ }
+ $index += length($boundary);
+ $r->content(substr($buf, 0, $index));
+ substr($buf, 0, $index) = '';
+
+ }
${*$self}{'httpd_rbuf'} = $buf;
$r;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/libwww-perl-5.825/lib/HTTP/Message.pm new/libwww-perl-5.826/lib/HTTP/Message.pm
--- old/libwww-perl-5.825/lib/HTTP/Message.pm 2009-02-13 14:57:11.000000000 +0100
+++ new/libwww-perl-5.826/lib/HTTP/Message.pm 2009-04-24 22:32:59.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
use vars qw($VERSION $AUTOLOAD);
-$VERSION = "5.824";
+$VERSION = "5.826";
require HTTP::Headers;
require Carp;
@@ -97,11 +97,17 @@
}
sub headers {
- shift->{'_headers'};
+ my $self = shift;
+
+ # recalculation of _content might change headers, so we
+ # need to force it now
+ $self->_content unless exists $self->{_content};
+
+ $self->{_headers};
}
sub headers_as_string {
- shift->{'_headers'}->as_string(@_);
+ shift->headers->as_string(@_);
}
@@ -525,7 +531,7 @@
}
-# delegate all other method calls the the _headers object.
+# delegate all other method calls the the headers object.
sub AUTOLOAD
{
my $method = substr($AUTOLOAD, rindex($AUTOLOAD, '::')+2);
@@ -533,7 +539,7 @@
# We create the function here so that it will not need to be
# autoloaded the next time.
no strict 'refs';
- *$method = sub { shift->{'_headers'}->$method(@_) };
+ *$method = sub { shift->headers->$method(@_) };
goto &$method;
}
@@ -589,7 +595,7 @@
# Create private _content attribute from current _parts
sub _content {
my $self = shift;
- my $ct = $self->header("Content-Type") || "multipart/mixed";
+ my $ct = $self->{_headers}->header("Content-Type") || "multipart/mixed";
if ($ct =~ m,^\s*message/,i) {
_set_content($self, $self->{_parts}[0]->as_string($CRLF), 1);
return;
@@ -634,7 +640,7 @@
}
$ct = HTTP::Headers::Util::join_header_words(@v);
- $self->header("Content-Type", $ct);
+ $self->{_headers}->header("Content-Type", $ct);
_set_content($self, "--$boundary$CRLF" .
join("$CRLF--$boundary$CRLF", @parts) .
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/libwww-perl-5.825/lib/LWP/Protocol.pm new/libwww-perl-5.826/lib/LWP/Protocol.pm
--- old/libwww-perl-5.825/lib/LWP/Protocol.pm 2008-12-05 20:12:42.000000000 +0100
+++ new/libwww-perl-5.826/lib/LWP/Protocol.pm 2009-04-24 22:33:15.000000000 +0200
@@ -2,7 +2,7 @@
require LWP::MemberMixin;
@ISA = qw(LWP::MemberMixin);
-$VERSION = "5.822";
+$VERSION = "5.826";
use strict;
use Carp ();
@@ -97,6 +97,7 @@
my($ua, $max_size) = @{$self}{qw(ua max_size)};
eval {
+ local $\; # protect the print below from surprises
if (!defined($arg) || !$response->is_success) {
$response->{default_add_content} = 1;
}
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/libwww-perl-5.825/lib/LWP/UserAgent.pm new/libwww-perl-5.826/lib/LWP/UserAgent.pm
--- old/libwww-perl-5.825/lib/LWP/UserAgent.pm 2009-02-13 15:06:39.000000000 +0100
+++ new/libwww-perl-5.826/lib/LWP/UserAgent.pm 2009-04-24 22:33:30.000000000 +0200
@@ -5,7 +5,7 @@
require LWP::MemberMixin;
@ISA = qw(LWP::MemberMixin);
-$VERSION = "5.824";
+$VERSION = "5.826";
use HTTP::Request ();
use HTTP::Response ();
@@ -37,6 +37,7 @@
my $agent = delete $cnf{agent};
my $from = delete $cnf{from};
+ my $def_headers = delete $cnf{default_headers};
my $timeout = delete $cnf{timeout};
$timeout = 3*60 unless defined $timeout;
my $use_eval = delete $cnf{use_eval};
@@ -78,7 +79,7 @@
}
my $self = bless {
- def_headers => undef,
+ def_headers => $def_headers,
timeout => $timeout,
use_eval => $use_eval,
show_progress=> $show_progress,
@@ -157,11 +158,12 @@
$@ =~ s/ at .* line \d+.*//s; # remove file/line number
$response = _new_response($request, &HTTP::Status::RC_NOT_IMPLEMENTED, $@);
if ($scheme eq "https") {
- $response->message($response->message . " (Crypt::SSLeay not installed)");
+ $response->message($response->message . " (Crypt::SSLeay or IO::Socket::SSL not installed)");
$response->content_type("text/plain");
$response->content(<
participants (1)
-
root@Hilbert.suse.de