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]

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';