r27384 - in /trunk/libxml-atom-perl: .shipit Changes MANIFEST META.yml debian/changelog lib/XML/Atom.pm lib/XML/Atom/Base.pm lib/XML/Atom/Entry.pm lib/XML/Atom/Feed.pm

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Fri Nov 28 19:58:15 UTC 2008 

Author: gregoa
Date: Fri Nov 28 19:58:12 2008
New Revision: 27384

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27384
Log:
New upstream release.

Added:
    trunk/libxml-atom-perl/.shipit
      - copied unchanged from r27383, branches/upstream/libxml-atom-perl/current/.shipit
Modified:
    trunk/libxml-atom-perl/Changes
    trunk/libxml-atom-perl/MANIFEST
    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/Base.pm
    trunk/libxml-atom-perl/lib/XML/Atom/Entry.pm
    trunk/libxml-atom-perl/lib/XML/Atom/Feed.pm

Modified: trunk/libxml-atom-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-atom-perl/Changes?rev=27384&op=diff
==============================================================================
--- trunk/libxml-atom-perl/Changes (original)
+++ trunk/libxml-atom-perl/Changes Fri Nov 28 19:58:12 2008
@@ -1,6 +1,10 @@
-$Id: Changes 104 2008-11-13 21:18:54Z miyagawa $
+$Id: Changes 107 2008-11-23 22:06:11Z miyagawa $
 
 Revision history for XML::Atom
+
+0.32  2008.11.23
+    * Added base and lang to Entry and Feed object. Fixed xml:base attributes.
+      (Simon Wistow)
 
 0.31  2008.11.13
     * Update Content-Type in XML::Atom::Client when the entity's version >= 1.0

Modified: trunk/libxml-atom-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-atom-perl/MANIFEST?rev=27384&op=diff
==============================================================================
--- trunk/libxml-atom-perl/MANIFEST (original)
+++ trunk/libxml-atom-perl/MANIFEST Fri Nov 28 19:58:12 2008
@@ -1,3 +1,4 @@
+.shipit
 Changes
 inc/Module/AutoInstall.pm
 inc/Module/Install.pm
@@ -46,6 +47,7 @@
 t/24-bad-content.t
 t/25-utf8-create.t
 t/27-client-leaks.t
+t/28-ext.t
 t/samples/atom-1.0.xml
 t/samples/entry-euc.xml
 t/samples/entry-full.xml
@@ -56,4 +58,3 @@
 t/samples/me.jpg
 t/samples/vox.xml
 t/TestLib.pm
-t/28-ext.t

Modified: trunk/libxml-atom-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-atom-perl/META.yml?rev=27384&op=diff
==============================================================================
--- trunk/libxml-atom-perl/META.yml (original)
+++ trunk/libxml-atom-perl/META.yml Fri Nov 28 19:58:12 2008
@@ -21,4 +21,4 @@
   XML::LibXML: 1.64
 resources:
   license: http://dev.perl.org/licenses/
-version: 0.31
+version: 0.32

Modified: trunk/libxml-atom-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-atom-perl/debian/changelog?rev=27384&op=diff
==============================================================================
--- trunk/libxml-atom-perl/debian/changelog (original)
+++ trunk/libxml-atom-perl/debian/changelog Fri Nov 28 19:58:12 2008
@@ -1,3 +1,9 @@
+libxml-atom-perl (0.32-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org>  Fri, 28 Nov 2008 20:57:12 +0100
+
 libxml-atom-perl (0.31-1) unstable; urgency=low
 
   * debian/control: Changed: Switched Vcs-Browser field to ViewSVN

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=27384&op=diff
==============================================================================
--- trunk/libxml-atom-perl/lib/XML/Atom.pm (original)
+++ trunk/libxml-atom-perl/lib/XML/Atom.pm Fri Nov 28 19:58:12 2008
@@ -1,9 +1,9 @@
-# $Id: Atom.pm 104 2008-11-13 21:18:54Z miyagawa $
+# $Id: Atom.pm 107 2008-11-23 22:06:11Z miyagawa $
 
 package XML::Atom;
 use strict;
 
-our $VERSION = '0.31';
+our $VERSION = '0.32';
 
 BEGIN {
     @XML::Atom::EXPORT = qw( LIBXML );

Modified: trunk/libxml-atom-perl/lib/XML/Atom/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-atom-perl/lib/XML/Atom/Base.pm?rev=27384&op=diff
==============================================================================
--- trunk/libxml-atom-perl/lib/XML/Atom/Base.pm (original)
+++ trunk/libxml-atom-perl/lib/XML/Atom/Base.pm Fri Nov 28 19:58:12 2008
@@ -1,4 +1,4 @@
-# $Id: Base.pm 103 2008-11-13 21:17:30Z miyagawa $
+# $Id: Base.pm 106 2008-11-14 22:04:41Z swistow $
 
 package XML::Atom::Base;
 use strict;
@@ -260,7 +260,7 @@
                     $elem->setAttributeNS('http://www.w3.org/XML/1998/namespace',
                                           $attr, $_[0]);
                 }
-                return $elem->getAttributeNS('http://www.w3.org/XML/1998/namespace', $attr);
+                return $elem->getAttribute("xml:$attr");
             } else {
                 if (@_) {
                     $obj->elem->setAttribute("xml:$attr", $_[0]);

Modified: trunk/libxml-atom-perl/lib/XML/Atom/Entry.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-atom-perl/lib/XML/Atom/Entry.pm?rev=27384&op=diff
==============================================================================
--- trunk/libxml-atom-perl/lib/XML/Atom/Entry.pm (original)
+++ trunk/libxml-atom-perl/lib/XML/Atom/Entry.pm Fri Nov 28 19:58:12 2008
@@ -1,4 +1,4 @@
-# $Id: Entry.pm 52 2006-08-16 05:38:26Z miyagawa $
+# $Id: Entry.pm 106 2008-11-14 22:04:41Z swistow $
 
 package XML::Atom::Entry;
 use strict;
@@ -25,6 +25,7 @@
 }
 
 __PACKAGE__->mk_elem_accessors(qw( summary source ));
+__PACKAGE__->mk_xml_attr_accessors(qw( lang base ));
 
 __PACKAGE__->_rename_elements('issued' => 'published');
 __PACKAGE__->_rename_elements('modified' => 'updated');

Modified: trunk/libxml-atom-perl/lib/XML/Atom/Feed.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-atom-perl/lib/XML/Atom/Feed.pm?rev=27384&op=diff
==============================================================================
--- trunk/libxml-atom-perl/lib/XML/Atom/Feed.pm (original)
+++ trunk/libxml-atom-perl/lib/XML/Atom/Feed.pm Fri Nov 28 19:58:12 2008
@@ -1,4 +1,4 @@
-# $Id: Feed.pm 70 2006-09-16 06:39:51Z miyagawa $
+# $Id: Feed.pm 106 2008-11-14 22:04:41Z swistow $
 
 package XML::Atom::Feed;
 use strict;
@@ -67,23 +67,8 @@
 }
 
 sub element_name { 'feed' }
-
-sub language {
-    my $feed = shift;
-    if (LIBXML) {
-        my $elem = $feed->elem;
-        if (@_) {
-            $elem->setAttributeNS('http://www.w3.org/XML/1998/namespace',
-                'lang', $_[0]);
-        }
-        return $elem->getAttributeNS('http://www.w3.org/XML/1998/namespace', 'lang');
-    } else {
-        if (@_) {
-            $feed->elem->setAttribute('xml:lang', $_[0]);
-        }
-        return $feed->elem->getAttribute('xml:lang');
-    }
-}
+*language = \&lang; # legacy
+
 
 sub version {
     my $feed = shift;
@@ -152,6 +137,7 @@
 }
 
 __PACKAGE__->mk_elem_accessors(qw( generator ));
+__PACKAGE__->mk_xml_attr_accessors(qw( lang base ));
 
 __PACKAGE__->_rename_elements('modified' => 'updated');
 __PACKAGE__->_rename_elements('tagline' => 'subtitle');

More information about the Pkg-perl-cvs-commits mailing list