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@novell.com + +- 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@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org