r29665 - in /trunk/libxml-atom-perl: Changes META.yml debian/changelog 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:34:04 UTC 2009
Author: bricas-guest
Date: Thu Jan 15 15:34:01 2009
New Revision: 29665
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29665
Log:
New upstream release
Modified:
trunk/libxml-atom-perl/Changes
trunk/libxml-atom-perl/META.yml
trunk/libxml-atom-perl/debian/changelog
trunk/libxml-atom-perl/lib/XML/Atom.pm
trunk/libxml-atom-perl/lib/XML/Atom/Client.pm
Modified: trunk/libxml-atom-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-atom-perl/Changes?rev=29665&op=diff
==============================================================================
--- trunk/libxml-atom-perl/Changes (original)
+++ trunk/libxml-atom-perl/Changes Thu Jan 15 15:34:01 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: trunk/libxml-atom-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-atom-perl/META.yml?rev=29665&op=diff
==============================================================================
--- trunk/libxml-atom-perl/META.yml (original)
+++ trunk/libxml-atom-perl/META.yml Thu Jan 15 15:34:01 2009
@@ -21,4 +21,4 @@
XML::LibXML: 1.64
resources:
license: http://dev.perl.org/licenses/
-version: 0.32
+version: 0.33
Modified: trunk/libxml-atom-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-atom-perl/debian/changelog?rev=29665&op=diff
==============================================================================
--- trunk/libxml-atom-perl/debian/changelog (original)
+++ trunk/libxml-atom-perl/debian/changelog Thu Jan 15 15:34:01 2009
@@ -1,3 +1,9 @@
+libxml-atom-perl (0.33-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Brian Cassidy <brian.cassidy at gmail.com> Thu, 15 Jan 2009 11:32:42 -0400
+
libxml-atom-perl (0.32-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libxml-atom-perl/lib/XML/Atom.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-atom-perl/lib/XML/Atom.pm?rev=29665&op=diff
==============================================================================
--- trunk/libxml-atom-perl/lib/XML/Atom.pm (original)
+++ trunk/libxml-atom-perl/lib/XML/Atom.pm Thu Jan 15 15:34:01 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: trunk/libxml-atom-perl/lib/XML/Atom/Client.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-atom-perl/lib/XML/Atom/Client.pm?rev=29665&op=diff
==============================================================================
--- trunk/libxml-atom-perl/lib/XML/Atom/Client.pm (original)
+++ trunk/libxml-atom-perl/lib/XML/Atom/Client.pm Thu Jan 15 15:34:01 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