r29663 - in /branches/upstream/libxml-atom-perl/current: Changes META.yml lib/XML/Atom.pm lib/XML/Atom/Client.pm
bricas-guest at users.alioth.debian.org
bricas-guest at users.alioth.debian.org
Thu Jan 15 15:31:50 UTC 2009
Author: bricas-guest
Date: Thu Jan 15 15:31:47 2009
New Revision: 29663
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29663
Log:
[svn-upgrade] Integrating new upstream version, libxml-atom-perl (0.33)
Modified:
branches/upstream/libxml-atom-perl/current/Changes
branches/upstream/libxml-atom-perl/current/META.yml
branches/upstream/libxml-atom-perl/current/lib/XML/Atom.pm
branches/upstream/libxml-atom-perl/current/lib/XML/Atom/Client.pm
Modified: branches/upstream/libxml-atom-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-atom-perl/current/Changes?rev=29663&op=diff
==============================================================================
--- branches/upstream/libxml-atom-perl/current/Changes (original)
+++ branches/upstream/libxml-atom-perl/current/Changes Thu Jan 15 15:31:47 2009
@@ -1,6 +1,10 @@
-$Id: Changes 107 2008-11-23 22:06:11Z miyagawa $
+$Id: Changes 110 2009-01-07 02:01:47Z miyagawa $
Revision history for XML::Atom
+
+0.33 2008.01.06
+ * Client: Send WSSE auth header only when username is set
+ (Thanks to David Bourget at http://rt.cpan.org/Public/Bug/Display.html?id=42201)
0.32 2008.11.23
* Added base and lang to Entry and Feed object. Fixed xml:base attributes.
Modified: branches/upstream/libxml-atom-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-atom-perl/current/META.yml?rev=29663&op=diff
==============================================================================
--- branches/upstream/libxml-atom-perl/current/META.yml (original)
+++ branches/upstream/libxml-atom-perl/current/META.yml Thu Jan 15 15:31:47 2009
@@ -21,4 +21,4 @@
XML::LibXML: 1.64
resources:
license: http://dev.perl.org/licenses/
-version: 0.32
+version: 0.33
Modified: branches/upstream/libxml-atom-perl/current/lib/XML/Atom.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-atom-perl/current/lib/XML/Atom.pm?rev=29663&op=diff
==============================================================================
--- branches/upstream/libxml-atom-perl/current/lib/XML/Atom.pm (original)
+++ branches/upstream/libxml-atom-perl/current/lib/XML/Atom.pm Thu Jan 15 15:31:47 2009
@@ -1,9 +1,9 @@
-# $Id: Atom.pm 107 2008-11-23 22:06:11Z miyagawa $
+# $Id: Atom.pm 110 2009-01-07 02:01:47Z miyagawa $
package XML::Atom;
use strict;
-our $VERSION = '0.32';
+our $VERSION = '0.33';
BEGIN {
@XML::Atom::EXPORT = qw( LIBXML );
Modified: branches/upstream/libxml-atom-perl/current/lib/XML/Atom/Client.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-atom-perl/current/lib/XML/Atom/Client.pm?rev=29663&op=diff
==============================================================================
--- branches/upstream/libxml-atom-perl/current/lib/XML/Atom/Client.pm (original)
+++ branches/upstream/libxml-atom-perl/current/lib/XML/Atom/Client.pm Thu Jan 15 15:31:47 2009
@@ -1,4 +1,4 @@
-# $Id: Client.pm 103 2008-11-13 21:17:30Z miyagawa $
+# $Id: Client.pm 109 2009-01-07 01:59:33Z miyagawa $
package XML::Atom::Client;
use strict;
@@ -173,10 +173,12 @@
$req->method('POST');
$req->content_type('text/xml');
} else {
- $req->header('X-WSSE', sprintf
- qq(UsernameToken Username="%s", PasswordDigest="%s", Nonce="%s", Created="%s"),
- $client->username || '', $digest, $nonce_enc, $now);
- $req->header('Authorization', 'WSSE profile="UsernameToken"');
+ if ($client->username) {
+ $req->header('X-WSSE', sprintf
+ qq(UsernameToken Username="%s", PasswordDigest="%s", Nonce="%s", Created="%s"),
+ $client->username || '', $digest, $nonce_enc, $now);
+ $req->header('Authorization', 'WSSE profile="UsernameToken"');
+ }
}
}
More information about the Pkg-perl-cvs-commits
mailing list