r27389 - in /trunk/libxml-feed-perl: Build.PL Changes MANIFEST META.yml Makefile.PL debian/changelog lib/XML/Feed.pm lib/XML/Feed/Entry.pm lib/XML/Feed/Format/Atom.pm lib/XML/Feed/Format/RSS.pm t/11-xml-base-rss.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Fri Nov 28 20:05:50 UTC 2008
Author: gregoa
Date: Fri Nov 28 20:05:46 2008
New Revision: 27389
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27389
Log:
New upstream release.
Added:
trunk/libxml-feed-perl/Build.PL
- copied unchanged from r27388, branches/upstream/libxml-feed-perl/current/Build.PL
Modified:
trunk/libxml-feed-perl/Changes
trunk/libxml-feed-perl/MANIFEST
trunk/libxml-feed-perl/META.yml
trunk/libxml-feed-perl/Makefile.PL
trunk/libxml-feed-perl/debian/changelog
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
trunk/libxml-feed-perl/t/11-xml-base-rss.t
Modified: trunk/libxml-feed-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-feed-perl/Changes?rev=27389&op=diff
==============================================================================
--- trunk/libxml-feed-perl/Changes (original)
+++ trunk/libxml-feed-perl/Changes Fri Nov 28 20:05:46 2008
@@ -1,6 +1,13 @@
-# $Id: Changes 101 2008-11-04 22:09:14Z swistow $
+# $Id: Changes 109 2008-11-21 20:41:06Z swistow $
Revision history for XML::Feed
+
+0.40
+ - Force v1.37 of XML::RSS to get proper xml:base support
+ - Force v0.32 of XML::Atom to fix
+ http://rt.cpan.org/Ticket/Display.html?id=40766
+ (Thanks to David Brownlee for the help in fixing)
+ - Add support for format() in Entry
0.3 2008-11-04
- Allow more flexible identification of Formats
Modified: trunk/libxml-feed-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-feed-perl/MANIFEST?rev=27389&op=diff
==============================================================================
--- trunk/libxml-feed-perl/MANIFEST (original)
+++ trunk/libxml-feed-perl/MANIFEST Fri Nov 28 20:05:46 2008
@@ -1,3 +1,4 @@
+Build.PL
Changes
lib/XML/Feed.pm
lib/XML/Feed/Content.pm
Modified: trunk/libxml-feed-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-feed-perl/META.yml?rev=27389&op=diff
==============================================================================
--- trunk/libxml-feed-perl/META.yml (original)
+++ trunk/libxml-feed-perl/META.yml Fri Nov 28 20:05:46 2008
@@ -1,6 +1,6 @@
---
name: XML-Feed
-version: 0.3
+version: 0.40
author: []
abstract: XML Syndication Feed Support
license: perl
@@ -18,13 +18,13 @@
Module::Pluggable: 0
Test::More: 0
URI::Fetch: 0
- XML::Atom: 0.23
+ XML::Atom: 0.32
XML::LibXML: 1.66
- XML::RSS: 1.31
+ XML::RSS: 1.37
provides:
XML::Feed:
file: lib/XML/Feed.pm
- version: 0.3
+ version: 0.40
XML::Feed::Content:
file: lib/XML/Feed/Content.pm
XML::Feed::Entry:
Modified: trunk/libxml-feed-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-feed-perl/Makefile.PL?rev=27389&op=diff
==============================================================================
--- trunk/libxml-feed-perl/Makefile.PL (original)
+++ trunk/libxml-feed-perl/Makefile.PL Fri Nov 28 20:05:46 2008
@@ -16,9 +16,9 @@
'Module::Pluggable' => '0',
'Test::More' => '0',
'URI::Fetch' => '0',
- 'XML::Atom' => '0.23',
+ 'XML::Atom' => '0.32',
'XML::LibXML' => '1.66',
- 'XML::RSS' => '1.31'
+ 'XML::RSS' => '1.37'
},
'INSTALLDIRS' => 'site',
'EXE_FILES' => [],
Modified: trunk/libxml-feed-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-feed-perl/debian/changelog?rev=27389&op=diff
==============================================================================
--- trunk/libxml-feed-perl/debian/changelog (original)
+++ trunk/libxml-feed-perl/debian/changelog Fri Nov 28 20:05:46 2008
@@ -1,7 +1,8 @@
-libxml-feed-perl (0.30-2) UNRELEASED; urgency=low
+libxml-feed-perl (0.40-1) UNRELEASED; urgency=low
* debian/control: Changed: Switched Vcs-Browser field to ViewSVN
(source stanza).
+ * New upstream release.
-- gregor herrmann <gregoa at debian.org> Sun, 16 Nov 2008 20:49:13 +0100
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=27389&op=diff
==============================================================================
--- trunk/libxml-feed-perl/lib/XML/Feed.pm (original)
+++ trunk/libxml-feed-perl/lib/XML/Feed.pm Fri Nov 28 20:05:46 2008
@@ -12,7 +12,7 @@
require => 1,
sub_name => 'formatters';
-our $VERSION = '0.3';
+our $VERSION = '0.40';
our @formatters;
BEGIN {
@formatters = __PACKAGE__->formatters;
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=27389&op=diff
==============================================================================
--- trunk/libxml-feed-perl/lib/XML/Feed/Entry.pm (original)
+++ trunk/libxml-feed-perl/lib/XML/Feed/Entry.pm Fri Nov 28 20:05:46 2008
@@ -54,6 +54,7 @@
sub modified;
sub lat;
sub long;
+sub format;
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=27389&op=diff
==============================================================================
--- trunk/libxml-feed-perl/lib/XML/Feed/Format/Atom.pm (original)
+++ trunk/libxml-feed-perl/lib/XML/Feed/Format/Atom.pm Fri Nov 28 20:05:46 2008
@@ -28,31 +28,6 @@
$feed->{atom} = XML::Atom::Feed->new(%args);
$feed;
-}
-
-# monkey patch
-{
- my $sub = sub {
- my $item = shift;
- if (XML::Atom::LIBXML) {
- my $elem = $item->elem;
- if (@_) {
- $elem->setAttributeNS('http://www.w3.org/XML/1998/namespace',
- 'base', $_[0]);
- }
- return $elem->getAttributeNS('http://www.w3.org/XML/1998/namespace', 'base');
- } else {
- if (@_) {
- $item->elem->setAttribute('xml:base', $_[0]);
- }
- return $item->elem->getAttribute('xml:base');
- }
-
- };
- no strict 'refs';
- *XML::Atom::Feed::base = $sub unless XML::Atom::Feed->can('base');
- *XML::Atom::Entry::base = $sub unless XML::Atom::Entry->can('base');
- *XML::Atom::Content::base = $sub unless XML::Atom::Content->can('base');
}
sub init_string {
@@ -164,6 +139,8 @@
$entry->{entry} = XML::Atom::Entry->new(Version => 1.0);
1;
}
+
+sub format { 'Atom' }
sub title { shift->{entry}->title(@_) }
sub source { shift->{entry}->source(@_) }
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=27389&op=diff
==============================================================================
--- trunk/libxml-feed-perl/lib/XML/Feed/Format/RSS.pm (original)
+++ trunk/libxml-feed-perl/lib/XML/Feed/Format/RSS.pm Fri Nov 28 20:05:46 2008
@@ -34,7 +34,7 @@
my($str) = @_;
$feed->init_empty;
if ($str) {
- $feed->{rss}->parse($$str);
+ $feed->{rss}->parse($$str, { hashrefs_instead_of_strings => 1 } );
}
$feed;
}
@@ -142,6 +142,7 @@
my @entries;
for my $item (@{ $rss->{items} }) {
push @entries, XML::Feed::Entry::Format::RSS->wrap($item);
+ $entries[-1]->{_version} = $rss->{'version'};
}
@entries;
}
@@ -157,6 +158,8 @@
package XML::Feed::Entry::Format::RSS;
use strict;
+
+sub format { 'RSS ' . $_[0]->{'_version'} }
use XML::Feed::Content;
Modified: trunk/libxml-feed-perl/t/11-xml-base-rss.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-feed-perl/t/11-xml-base-rss.t?rev=27389&op=diff
==============================================================================
--- trunk/libxml-feed-perl/t/11-xml-base-rss.t (original)
+++ trunk/libxml-feed-perl/t/11-xml-base-rss.t Fri Nov 28 20:05:46 2008
@@ -5,11 +5,7 @@
use XML::Feed;
use XML::RSS;
-if ($XML::RSS::VERSION <= 1.36) {
- plan skip_all => "Version of XML::RSS is too old to do xml:base";
-} else {
- plan tests => 13;
-}
+plan tests => 13;
my $feed = XML::Feed->parse('t/samples/base_rss.xml');
More information about the Pkg-perl-cvs-commits
mailing list