Mailinglist Archive: opensuse-commit (640 mails)
| < Previous | Next > |
commit perl-HTTP-DAV for openSUSE:Factory
- From: root@xxxxxxxxxxxxxxx (h_root)
- Date: Mon, 18 Apr 2011 11:03:03 +0200
- Message-id: <20110418090303.4215A202B0@hilbert.suse.de>
Hello community,
here is the log from the commit of package perl-HTTP-DAV for openSUSE:Factory
checked in at Mon Apr 18 11:03:03 CEST 2011.
--------
--- perl-HTTP-DAV/perl-HTTP-DAV.changes 2010-12-01 14:46:49.000000000 +0100
+++ /mounts/work_src_done/STABLE/perl-HTTP-DAV/perl-HTTP-DAV.changes
2011-04-15 13:44:56.000000000 +0200
@@ -1,0 +2,8 @@
+Fri Apr 15 11:41:27 UTC 2011 - vcizek@xxxxxxxxxx
+
+- update to 0.43
+ - Fixed RT #38677 (http://rt.cpan.org/Public/Bug/Display.html?id=38677),
+ Intercept correctly 405 (Method now allowed) errors and report them
+ to the clients.
+
+-------------------------------------------------------------------
calling whatdependson for head-i586
Old:
----
HTTP-DAV-0.42.tar.bz2
New:
----
HTTP-DAV-0.43.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-HTTP-DAV.spec ++++++
--- /var/tmp/diff_new_pack.cDmzZO/_old 2011-04-18 11:02:41.000000000 +0200
+++ /var/tmp/diff_new_pack.cDmzZO/_new 2011-04-18 11:02:41.000000000 +0200
@@ -1,7 +1,7 @@
#
-# spec file for package perl-HTTP-DAV (Version 0.42)
+# spec file for package perl-HTTP-DAV
#
-# Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -21,8 +21,8 @@
Name: perl-HTTP-DAV
%define cpan_name HTTP-DAV
Summary: WebDAV client library for Perl5
-Version: 0.42
-Release: 2
+Version: 0.43
+Release: 1
License: GPL+ or Artistic
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/HTTP-DAV/
++++++ HTTP-DAV-0.42.tar.bz2 -> HTTP-DAV-0.43.tar.bz2 ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-DAV-0.42/Changes new/HTTP-DAV-0.43/Changes
--- old/HTTP-DAV-0.42/Changes 2010-11-07 16:54:50.000000000 +0100
+++ new/HTTP-DAV-0.43/Changes 2011-04-12 13:08:57.000000000 +0200
@@ -1,4 +1,11 @@
Revision history for PerlDAV
+ v0.43 (released 2011/04/12):
+ * bug fixes
+
+ - Fixed RT #38677
(http://rt.cpan.org/Public/Bug/Display.html?id=38677),
+ Intercept correctly 405 (Method now allowed) errors and report them
+ to the clients.
+
v0.42 (released 2010/11/07):
* bug fixes
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-DAV-0.42/DAV.pm new/HTTP-DAV-0.43/DAV.pm
--- old/HTTP-DAV-0.42/DAV.pm 2010-11-07 16:53:39.000000000 +0100
+++ new/HTTP-DAV-0.43/DAV.pm 2011-04-12 13:01:33.000000000 +0200
@@ -20,8 +20,8 @@
use Cwd (); # Can't import all of it, cwd clashes with our namespace.
# Globals
-$VERSION = '0.42';
-$VERSION_DATE = '2010/11/07';
+$VERSION = '0.43';
+$VERSION_DATE = '2011/04/13';
# Set this up to 3
$DEBUG = 0;
@@ -141,6 +141,7 @@
'ERR_NULL_RESOURCE' => 'Not connected. Do an open first. ',
'ERR_RESP_FAIL' => 'Server response: ',
'ERR_501' => 'Server response: ',
+ 'ERR_405' => 'Server response: ',
'ERR_GENERIC' => '',
);
@@ -1101,14 +1102,19 @@
my $error_type;
my $error_msg;
- if ($response->www_authenticate) {
- $error_type = 'ERR_UNAUTHORIZED';
- $error_msg = $response->www_authenticate;
+ # Method not allowed
+ if ($response->status_line =~ m{405}) {
+ $error_type = 'ERR_405';
+ $error_msg = $response->status_line;
}
# 501 most probably means your LWP doesn't support SSL
elsif ($response->status_line =~ m{501}) {
$error_type = 'ERR_501';
- $error_msg = $response->status_line,
+ $error_msg = $response->status_line;
+ }
+ elsif ($response->www_authenticate) {
+ $error_type = 'ERR_UNAUTHORIZED';
+ $error_msg = $response->www_authenticate;
}
elsif ( !$resource->is_dav_compliant ) {
$error_type = 'ERR_GENERIC';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-DAV-0.42/MANIFEST new/HTTP-DAV-0.43/MANIFEST
--- old/HTTP-DAV-0.42/MANIFEST 2010-11-07 15:18:43.000000000 +0100
+++ new/HTTP-DAV-0.43/MANIFEST 2011-04-12 13:05:26.000000000 +0200
@@ -35,6 +35,7 @@
t/6_dav_open_put_get.t
t/6_dav_options.t
t/9_RT_19616.t
+t/9_RT_38677.t
t/9_RT_42877.t
t/9_RT_47500.t
t/9_RT_52665.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-DAV-0.42/META.yml new/HTTP-DAV-0.43/META.yml
--- old/HTTP-DAV-0.42/META.yml 2010-11-07 16:57:25.000000000 +0100
+++ new/HTTP-DAV-0.43/META.yml 2011-04-12 13:11:56.000000000 +0200
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: HTTP-DAV
-version: 0.42
+version: 0.43
abstract: ~
author: []
license: unknown
@@ -17,7 +17,7 @@
directory:
- t
- inc
-generated_by: ExtUtils::MakeMaker version 6.56
+generated_by: ExtUtils::MakeMaker version 6.55_02
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-DAV-0.42/doc/Changes.pod
new/HTTP-DAV-0.43/doc/Changes.pod
--- old/HTTP-DAV-0.42/doc/Changes.pod 2010-11-07 16:52:25.000000000 +0100
+++ new/HTTP-DAV-0.43/doc/Changes.pod 2011-04-12 13:08:37.000000000 +0200
@@ -12,6 +12,18 @@
=end text
+=head2 v0.43 (released 2011/04/12):
+
+=over 4
+
+=item * B<bug fixes>
+
+ - Fixed RT #38677 (http://rt.cpan.org/Public/Bug/Display.html?id=38677),
+ Intercept correctly 405 (Method now allowed) errors and report them
+ to the clients.
+
+=back
+
=head2 v0.42 (released 2010/11/07):
=over 4
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-DAV-0.42/t/9_RT_38677.t
new/HTTP-DAV-0.43/t/9_RT_38677.t
--- old/HTTP-DAV-0.42/t/9_RT_38677.t 1970-01-01 01:00:00.000000000 +0100
+++ new/HTTP-DAV-0.43/t/9_RT_38677.t 2011-04-12 13:05:11.000000000 +0200
@@ -0,0 +1,37 @@
+#!/usr/bin/env perl
+
+use strict;
+
+use Test::More tests => 5;
+use HTTP::Response;
+
+use_ok('HTTP::DAV');
+
+my $server_msg = q{Method not allowed};
+my $fake_405_response = HTTP::Response->new(405, $server_msg);
+
+my $dav = HTTP::DAV->new();
+
+my $result = $dav->what_happened(
+ 'https://fake.url.for.testing', # url
+ undef, # resource
+ $fake_405_response, # http::response
+);
+
+ok(ref $result eq 'HASH', 'A hashref is expected');
+
+is(
+ $result->{success} => 0,
+ 'Requests ending in 405s should be considered failed'
+);
+
+is(
+ $result->{error_type} => 'ERR_405',
+ 'RT#38677: 405s are detected as such'
+);
+
+like(
+ $result->{error_msg} => qr{$server_msg},
+ 'Server message should be reported as error message'
+);
+
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
--
To unsubscribe, e-mail: opensuse-commit+unsubscribe@xxxxxxxxxxxx
For additional commands, e-mail: opensuse-commit+help@xxxxxxxxxxxx
| < Previous | Next > |