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 = \⟨ # 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