r49587 - in /trunk/libxml-atom-perl: Changes META.yml debian/changelog lib/XML/Atom.pm lib/XML/Atom/Base.pm t/29-source.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Thu Dec 31 04:37:03 UTC 2009
Author: jawnsy-guest
Date: Thu Dec 31 04:36:40 2009
New Revision: 49587
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=49587
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/Base.pm
trunk/libxml-atom-perl/t/29-source.t
Modified: trunk/libxml-atom-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-atom-perl/Changes?rev=49587&op=diff
==============================================================================
--- trunk/libxml-atom-perl/Changes (original)
+++ trunk/libxml-atom-perl/Changes Thu Dec 31 04:36:40 2009
@@ -1,6 +1,9 @@
$Id$
Revision history for XML::Atom
+
+0.37 2009.12.29
+ * Fixed accessors for source elements (Vince Veselosky)
0.36 2009.12.21
* Fixed various dependency issues RT #23538, #34481, #52519, #41058 (Tomas Doran)
Modified: trunk/libxml-atom-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-atom-perl/META.yml?rev=49587&op=diff
==============================================================================
--- trunk/libxml-atom-perl/META.yml (original)
+++ trunk/libxml-atom-perl/META.yml Thu Dec 31 04:36:40 2009
@@ -30,4 +30,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: git://github.com/miyagawa/xml-atom.git
-version: 0.36
+version: 0.37
Modified: trunk/libxml-atom-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-atom-perl/debian/changelog?rev=49587&op=diff
==============================================================================
--- trunk/libxml-atom-perl/debian/changelog (original)
+++ trunk/libxml-atom-perl/debian/changelog Thu Dec 31 04:36:40 2009
@@ -1,3 +1,9 @@
+libxml-atom-perl (0.37-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org> Wed, 30 Dec 2009 23:37:33 -0500
+
libxml-atom-perl (0.36-1) unstable; urgency=low
[ Jonathan Yu ]
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=49587&op=diff
==============================================================================
--- trunk/libxml-atom-perl/lib/XML/Atom.pm (original)
+++ trunk/libxml-atom-perl/lib/XML/Atom.pm Thu Dec 31 04:36:40 2009
@@ -4,7 +4,7 @@
use strict;
use 5.008_001;
-our $VERSION = '0.36';
+our $VERSION = '0.37';
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=49587&op=diff
==============================================================================
--- trunk/libxml-atom-perl/lib/XML/Atom/Base.pm (original)
+++ trunk/libxml-atom-perl/lib/XML/Atom/Base.pm Thu Dec 31 04:36:40 2009
@@ -84,7 +84,7 @@
my $obj = shift;
my($ns, $name) = @_;
my $ns_uri = ref($ns) eq 'XML::Atom::Namespace' ? $ns->{uri} : $ns;
- my @node = nodelist($obj->elem, $ns_uri, $name);
+ my @node = childlist($obj->elem, $ns_uri, $name);
return map {
my $val = LIBXML ? $_->textContent : $_->string_value;
if ($] >= 5.008) {
Modified: trunk/libxml-atom-perl/t/29-source.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-atom-perl/t/29-source.t?rev=49587&op=diff
==============================================================================
--- trunk/libxml-atom-perl/t/29-source.t (original)
+++ trunk/libxml-atom-perl/t/29-source.t Thu Dec 31 04:36:40 2009
@@ -1,5 +1,5 @@
use strict;
-use Test::More tests => 7;
+use Test::More tests => 9;
use XML::Atom::Feed;
@@ -7,8 +7,12 @@
my $entry = ($feed->entries)[0];
ok $entry;
+is $entry->title, "Example Entry";
ok $entry->source;
is $entry->source->title, "Frank's JiveBlog";
+
+$entry->title("Altered Entry");
+is $entry->title, "Altered Entry";
my $link = $entry->source->link;
is $link->rel, 'alternate';
More information about the Pkg-perl-cvs-commits
mailing list