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