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]

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"');
+        }
     }
 }