r32606 - in /trunk/libxml-feed-perl: ./ debian/ lib/XML/ lib/XML/Feed/ lib/XML/Feed/Format/ t/ t/samples/
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Sat Apr 4 02:17:00 UTC 2009
Author: ryan52-guest
Date: Sat Apr 4 02:16:54 2009
New Revision: 32606
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32606
Log:
* New upstream release
* Add myself to Uploaders
Added:
trunk/libxml-feed-perl/lib/XML/Feed/Enclosure.pm
- copied unchanged from r32605, branches/upstream/libxml-feed-perl/current/lib/XML/Feed/Enclosure.pm
trunk/libxml-feed-perl/t/13-category-hash-bug.t
- copied unchanged from r32605, branches/upstream/libxml-feed-perl/current/t/13-category-hash-bug.t
trunk/libxml-feed-perl/t/14-enclosures.t
- copied unchanged from r32605, branches/upstream/libxml-feed-perl/current/t/14-enclosures.t
trunk/libxml-feed-perl/t/samples/atom-enclosure.xml
- copied unchanged from r32605, branches/upstream/libxml-feed-perl/current/t/samples/atom-enclosure.xml
trunk/libxml-feed-perl/t/samples/atom-multi-enclosure.xml
- copied unchanged from r32605, branches/upstream/libxml-feed-perl/current/t/samples/atom-multi-enclosure.xml
trunk/libxml-feed-perl/t/samples/category-bug.xml
- copied unchanged from r32605, branches/upstream/libxml-feed-perl/current/t/samples/category-bug.xml
trunk/libxml-feed-perl/t/samples/rss20-enclosure.xml
- copied unchanged from r32605, branches/upstream/libxml-feed-perl/current/t/samples/rss20-enclosure.xml
trunk/libxml-feed-perl/t/samples/rss20-multi-enclosure.xml
- copied unchanged from r32605, branches/upstream/libxml-feed-perl/current/t/samples/rss20-multi-enclosure.xml
Modified:
trunk/libxml-feed-perl/Changes
trunk/libxml-feed-perl/MANIFEST
trunk/libxml-feed-perl/MANIFEST.SKIP
trunk/libxml-feed-perl/META.yml
trunk/libxml-feed-perl/debian/changelog
trunk/libxml-feed-perl/debian/control
trunk/libxml-feed-perl/lib/XML/Feed.pm
trunk/libxml-feed-perl/lib/XML/Feed/Entry.pm
trunk/libxml-feed-perl/lib/XML/Feed/Format/Atom.pm
trunk/libxml-feed-perl/lib/XML/Feed/Format/RSS.pm
Modified: trunk/libxml-feed-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-feed-perl/Changes?rev=32606&op=diff
==============================================================================
--- trunk/libxml-feed-perl/Changes (original)
+++ trunk/libxml-feed-perl/Changes Sat Apr 4 02:16:54 2009
@@ -1,6 +1,15 @@
-# $Id: Changes 118 2008-12-10 20:15:44Z swistow $
+# $Id: Changes 148 2009-04-03 15:16:38Z swistow $
Revision history for XML::Feed
+
+0.42
+ - Fix conversion of multi value fields
+ http://rt.cpan.org/Ticket/Display.html?id=41794
+ (Mario Domgoergen)
+
+ - Fixed a bug where $e->category fails when XML::RSS::LibXML is preferred.
+ (Tatsuhiko Miyagawa)
+ - Added support for enclosures
0.41
- Add handling for multiple categories/tags, including
Modified: trunk/libxml-feed-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-feed-perl/MANIFEST?rev=32606&op=diff
==============================================================================
--- trunk/libxml-feed-perl/MANIFEST (original)
+++ trunk/libxml-feed-perl/MANIFEST Sat Apr 4 02:16:54 2009
@@ -1,6 +1,7 @@
Changes
lib/XML/Feed.pm
lib/XML/Feed/Content.pm
+lib/XML/Feed/Enclosure.pm
lib/XML/Feed/Entry.pm
lib/XML/Feed/Format/Atom.pm
lib/XML/Feed/Format/RSS.pm
@@ -25,18 +26,25 @@
t/12-multi-categories-rss.t
t/12-multi-categories.base
t/12-multi-subjects-rss.t
+t/13-category-hash-bug.t
+t/14-enclosures.t
t/pod-coverage.t
t/pod.t
t/samples/atom-10-example.xml
+t/samples/atom-enclosure.xml
t/samples/atom-full.xml
+t/samples/atom-multi-enclosure.xml
t/samples/atom-multiple-categories.xml
t/samples/atom.xml
t/samples/base_atom.xml
t/samples/base_rss.xml
+t/samples/category-bug.xml
t/samples/rss-multiple-categories.xml
t/samples/rss-multiple-subjects.xml
t/samples/rss10-invalid-date.xml
t/samples/rss10.xml
+t/samples/rss20-enclosure.xml
+t/samples/rss20-multi-enclosure.xml
t/samples/rss20-no-summary.xml
t/samples/rss20.xml
Makefile.PL
Modified: trunk/libxml-feed-perl/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-feed-perl/MANIFEST.SKIP?rev=32606&op=diff
==============================================================================
--- trunk/libxml-feed-perl/MANIFEST.SKIP (original)
+++ trunk/libxml-feed-perl/MANIFEST.SKIP Sat Apr 4 02:16:54 2009
@@ -1,5 +1,6 @@
\.tar\.gz$
\.svn
+\.bak$
_build
Build
blib
Modified: trunk/libxml-feed-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-feed-perl/META.yml?rev=32606&op=diff
==============================================================================
--- trunk/libxml-feed-perl/META.yml (original)
+++ trunk/libxml-feed-perl/META.yml Sat Apr 4 02:16:54 2009
@@ -1,6 +1,6 @@
---
name: XML-Feed
-version: 0.41
+version: 0.42
author: []
abstract: XML Syndication Feed Support
license: perl
@@ -24,9 +24,11 @@
provides:
XML::Feed:
file: lib/XML/Feed.pm
- version: 0.41
+ version: 0.42
XML::Feed::Content:
file: lib/XML/Feed/Content.pm
+ XML::Feed::Enclosure:
+ file: lib/XML/Feed/Enclosure.pm
XML::Feed::Entry:
file: lib/XML/Feed/Entry.pm
XML::Feed::Entry::Format::Atom:
Modified: trunk/libxml-feed-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-feed-perl/debian/changelog?rev=32606&op=diff
==============================================================================
--- trunk/libxml-feed-perl/debian/changelog (original)
+++ trunk/libxml-feed-perl/debian/changelog Sat Apr 4 02:16:54 2009
@@ -1,3 +1,10 @@
+libxml-feed-perl (0.42-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ * Add myself to Uploaders
+
+ -- Ryan Niebur <ryanryan52 at gmail.com> Fri, 03 Apr 2009 19:16:48 -0700
+
libxml-feed-perl (0.41-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libxml-feed-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-feed-perl/debian/control?rev=32606&op=diff
==============================================================================
--- trunk/libxml-feed-perl/debian/control (original)
+++ trunk/libxml-feed-perl/debian/control Sat Apr 4 02:16:54 2009
@@ -9,7 +9,7 @@
libfeed-find-perl, libxml-libxml-perl (>= 1.66), libtest-pod-perl,
libtest-pod-coverage-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Jaldhar H. Vyas <jaldhar at debian.org>, gregor herrmann <gregoa at debian.org>
+Uploaders: Jaldhar H. Vyas <jaldhar at debian.org>, gregor herrmann <gregoa at debian.org>, Ryan Niebur <ryanryan52 at gmail.com>
Standards-Version: 3.8.0
Homepage: http://search.cpan.org/dist/XML-Feed/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libxml-feed-perl/
Modified: trunk/libxml-feed-perl/lib/XML/Feed.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-feed-perl/lib/XML/Feed.pm?rev=32606&op=diff
==============================================================================
--- trunk/libxml-feed-perl/lib/XML/Feed.pm (original)
+++ trunk/libxml-feed-perl/lib/XML/Feed.pm Sat Apr 4 02:16:54 2009
@@ -1,4 +1,4 @@
-# $Id: Feed.pm 118 2008-12-10 20:15:44Z swistow $
+# $Id: Feed.pm 147 2009-04-03 15:16:10Z swistow $
package XML::Feed;
use strict;
@@ -12,7 +12,7 @@
require => 1,
sub_name => 'formatters';
-our $VERSION = '0.41';
+our $VERSION = '0.42';
our @formatters;
BEGIN {
@formatters = __PACKAGE__->formatters;
@@ -364,6 +364,8 @@
B<Note:> this will only work for parsing feeds, not creating feeds.
+B<Note:> Only C<XML::RSS::LibXML> version 0.3004 is known to work at the moment.
+
=back
=head1 VALID FEEDS
Modified: trunk/libxml-feed-perl/lib/XML/Feed/Entry.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-feed-perl/lib/XML/Feed/Entry.pm?rev=32606&op=diff
==============================================================================
--- trunk/libxml-feed-perl/lib/XML/Feed/Entry.pm (original)
+++ trunk/libxml-feed-perl/lib/XML/Feed/Entry.pm Sat Apr 4 02:16:54 2009
@@ -1,4 +1,4 @@
-# $Id: Entry.pm 118 2008-12-10 20:15:44Z swistow $
+# $Id: Entry.pm 145 2009-04-03 15:07:25Z swistow $
package XML::Feed::Entry;
use strict;
@@ -56,6 +56,7 @@
sub long;
sub format;
sub tags { shift->category(@_) }
+sub enclosure;
1;
__END__
Modified: trunk/libxml-feed-perl/lib/XML/Feed/Format/Atom.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-feed-perl/lib/XML/Feed/Format/Atom.pm?rev=32606&op=diff
==============================================================================
--- trunk/libxml-feed-perl/lib/XML/Feed/Format/Atom.pm (original)
+++ trunk/libxml-feed-perl/lib/XML/Feed/Format/Atom.pm Sat Apr 4 02:16:54 2009
@@ -1,4 +1,4 @@
-# $Id: Atom.pm 116 2008-12-09 23:39:29Z swistow $
+# $Id: Atom.pm 145 2009-04-03 15:07:25Z swistow $
package XML::Feed::Format::Atom;
use strict;
@@ -293,4 +293,23 @@
}
}
+
+sub enclosure {
+ my $entry = shift;
+
+ if (@_) {
+ my $enclosure = shift;
+ # TODO Atom can have multiple enclosures
+ $entry->{entry}->link({ rel => 'enclosure', href => $enclosure->{url},
+ length => $enclosure->{length},
+ type => $enclosure->{type} });
+ return 1;
+ } else {
+ my $l = first { defined $_->rel && $_->rel eq 'enclosure' } $entry->{entry}->link;
+ return undef unless $l;
+ return XML::Feed::Enclosure->new({ url => $l->href, length => $l->length, type => $l->type });
+ }
+}
+
+
1;
Modified: trunk/libxml-feed-perl/lib/XML/Feed/Format/RSS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-feed-perl/lib/XML/Feed/Format/RSS.pm?rev=32606&op=diff
==============================================================================
--- trunk/libxml-feed-perl/lib/XML/Feed/Format/RSS.pm (original)
+++ trunk/libxml-feed-perl/lib/XML/Feed/Format/RSS.pm Sat Apr 4 02:16:54 2009
@@ -1,4 +1,4 @@
-# $Id: RSS.pm 117 2008-12-09 23:48:16Z swistow $
+# $Id: RSS.pm 145 2009-04-03 15:07:25Z swistow $
package XML::Feed::Format::RSS;
use strict;
@@ -253,7 +253,7 @@
$item->{dc}{subject} = [@tmp];
} else {
my $r = $item->{category} || $item->{dc}{subject};
- my @r = ref($r)? @$r : defined $r? ($r) : ();
+ my @r = ref($r) eq 'ARRAY' ? @$r : defined $r? ($r) : ();
return wantarray? @r : $r[0];
}
}
@@ -329,5 +329,19 @@
}
}
+sub enclosure {
+ my $entry = shift;
+
+ if (@_) {
+ my $enclosure = shift;
+ $entry->{entry}->{enclosure} = {
+ url => $enclosure->{url},
+ type => $enclosure->{type},
+ length => $enclosure->{length}
+ };
+ } else {
+ return XML::Feed::Enclosure->new($entry->{entry}->{enclosure});
+ }
+}
1;
More information about the Pkg-perl-cvs-commits
mailing list