r77220 - in /trunk/libxml-rss-libxml-perl: ./ debian/ inc/Module/ inc/Module/Install/ lib/XML/RSS/ lib/XML/RSS/LibXML/ t/ t/generated/
periapt-guest at users.alioth.debian.org
periapt-guest at users.alioth.debian.org
Fri Jul 8 11:17:08 UTC 2011
Author: periapt-guest
Date: Fri Jul 8 11:16:59 2011
New Revision: 77220
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=77220
Log:
New upstream release
Removed:
trunk/libxml-rss-libxml-perl/inc/Module/AutoInstall.pm
trunk/libxml-rss-libxml-perl/inc/Module/Install/AutoInstall.pm
trunk/libxml-rss-libxml-perl/inc/Module/Install/Include.pm
Modified:
trunk/libxml-rss-libxml-perl/Changes
trunk/libxml-rss-libxml-perl/MANIFEST
trunk/libxml-rss-libxml-perl/META.yml
trunk/libxml-rss-libxml-perl/Makefile.PL
trunk/libxml-rss-libxml-perl/debian/changelog
trunk/libxml-rss-libxml-perl/inc/Module/Install.pm
trunk/libxml-rss-libxml-perl/inc/Module/Install/Base.pm
trunk/libxml-rss-libxml-perl/inc/Module/Install/Can.pm
trunk/libxml-rss-libxml-perl/inc/Module/Install/Fetch.pm
trunk/libxml-rss-libxml-perl/inc/Module/Install/Makefile.pm
trunk/libxml-rss-libxml-perl/inc/Module/Install/Metadata.pm
trunk/libxml-rss-libxml-perl/inc/Module/Install/Win32.pm
trunk/libxml-rss-libxml-perl/inc/Module/Install/WriteAll.pm
trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML.pm
trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/ImplBase.pm
trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/MagicElement.pm
trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/V0_9.pm
trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/V0_91.pm
trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/V2_0.pm
trunk/libxml-rss-libxml-perl/t/generated/1.0-generated.xml
trunk/libxml-rss-libxml-perl/t/generated/2.0-generated.xml
trunk/libxml-rss-libxml-perl/t/items-are-0.t
trunk/libxml-rss-libxml-perl/t/regress-content-encoded.t
Modified: trunk/libxml-rss-libxml-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/Changes?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/Changes (original)
+++ trunk/libxml-rss-libxml-perl/Changes Fri Jul 8 11:16:59 2011
@@ -2,6 +2,11 @@
=======
Except where noted, all changes made by Daisuke Maki
+
+0.3101 - 06 Jul 2011
+ * Fix perl 5.14 qw() deprecation warnings (theory)
+ * Fix some edge case errors cause by isa / UNIVERSAL::isa
+ * Fix silly error detecting RSS 1.0
0.3100 - 22 Jun 2010
* Bunch of changes by David Wheeler, granting a minor version++ :)
Modified: trunk/libxml-rss-libxml-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/MANIFEST?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/MANIFEST (original)
+++ trunk/libxml-rss-libxml-perl/MANIFEST Fri Jul 8 11:16:59 2011
@@ -1,12 +1,9 @@
Changes
-inc/Module/AutoInstall.pm
inc/Module/Install.pm
inc/Module/Install/AuthorTests.pm
-inc/Module/Install/AutoInstall.pm
inc/Module/Install/Base.pm
inc/Module/Install/Can.pm
inc/Module/Install/Fetch.pm
-inc/Module/Install/Include.pm
inc/Module/Install/Makefile.pm
inc/Module/Install/Metadata.pm
inc/Module/Install/Repository.pm
Modified: trunk/libxml-rss-libxml-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/META.yml?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/META.yml (original)
+++ trunk/libxml-rss-libxml-perl/META.yml Fri Jul 8 11:16:59 2011
@@ -7,7 +7,7 @@
configure_requires:
ExtUtils::MakeMaker: 6.42
distribution_type: module
-generated_by: 'Module::Install version 0.99'
+generated_by: 'Module::Install version 1.01'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -29,4 +29,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: git://github.com/lestrrat/XML-RSS-LibXML.git
-version: 0.3100
+version: 0.3101
Modified: trunk/libxml-rss-libxml-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/Makefile.PL?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/Makefile.PL (original)
+++ trunk/libxml-rss-libxml-perl/Makefile.PL Fri Jul 8 11:16:59 2011
@@ -14,7 +14,6 @@
requires 'XML::LibXML::XPathContext';
auto_set_repository;
-auto_install;
tests 't/*.t';
author_tests 'xt';
WriteAll;
Modified: trunk/libxml-rss-libxml-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/debian/changelog?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/debian/changelog (original)
+++ trunk/libxml-rss-libxml-perl/debian/changelog Fri Jul 8 11:16:59 2011
@@ -1,3 +1,9 @@
+libxml-rss-libxml-perl (0.3101+dfsg-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Nicholas Bamber <nicholas at periapt.co.uk> Fri, 08 Jul 2011 12:20:31 +0100
+
libxml-rss-libxml-perl (0.3100+dfsg-1) unstable; urgency=low
[ Nathan Handler ]
Modified: trunk/libxml-rss-libxml-perl/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/inc/Module/Install.pm?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/inc/Module/Install.pm (original)
+++ trunk/libxml-rss-libxml-perl/inc/Module/Install.pm Fri Jul 8 11:16:59 2011
@@ -31,7 +31,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '0.99';
+ $VERSION = '1.01';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -230,8 +230,12 @@
sub new {
my ($class, %args) = @_;
- delete $INC{'FindBin.pm'};
- require FindBin;
+ delete $INC{'FindBin.pm'};
+ {
+ # to suppress the redefine warning
+ local $SIG{__WARN__} = sub {};
+ require FindBin;
+ }
# ignore the prefix on extension modules built from top level.
my $base_path = Cwd::abs_path($FindBin::Bin);
@@ -463,4 +467,4 @@
1;
-# Copyright 2008 - 2010 Adam Kennedy.
+# Copyright 2008 - 2011 Adam Kennedy.
Modified: trunk/libxml-rss-libxml-perl/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/inc/Module/Install/Base.pm?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/inc/Module/Install/Base.pm (original)
+++ trunk/libxml-rss-libxml-perl/inc/Module/Install/Base.pm Fri Jul 8 11:16:59 2011
@@ -4,7 +4,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.01';
}
# Suspend handler for "redefined" warnings
Modified: trunk/libxml-rss-libxml-perl/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/inc/Module/Install/Can.pm?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/inc/Module/Install/Can.pm (original)
+++ trunk/libxml-rss-libxml-perl/inc/Module/Install/Can.pm Fri Jul 8 11:16:59 2011
@@ -9,7 +9,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libxml-rss-libxml-perl/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/inc/Module/Install/Fetch.pm?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/inc/Module/Install/Fetch.pm (original)
+++ trunk/libxml-rss-libxml-perl/inc/Module/Install/Fetch.pm Fri Jul 8 11:16:59 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libxml-rss-libxml-perl/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/inc/Module/Install/Makefile.pm?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/inc/Module/Install/Makefile.pm (original)
+++ trunk/libxml-rss-libxml-perl/inc/Module/Install/Makefile.pm Fri Jul 8 11:16:59 2011
@@ -8,7 +8,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libxml-rss-libxml-perl/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/inc/Module/Install/Metadata.pm?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/inc/Module/Install/Metadata.pm (original)
+++ trunk/libxml-rss-libxml-perl/inc/Module/Install/Metadata.pm Fri Jul 8 11:16:59 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -515,6 +515,7 @@
'GNU Free Documentation license' => 'unrestricted', 1,
'GNU Affero General Public License' => 'open_source', 1,
'(?:Free)?BSD license' => 'bsd', 1,
+ 'Artistic license 2\.0' => 'artistic_2', 1,
'Artistic license' => 'artistic', 1,
'Apache (?:Software )?license' => 'apache', 1,
'GPL' => 'gpl', 1,
@@ -550,9 +551,9 @@
sub _extract_bugtracker {
my @links = $_[0] =~ m#L<(
- \Qhttp://rt.cpan.org/\E[^>]+|
- \Qhttp://github.com/\E[\w_]+/[\w_]+/issues|
- \Qhttp://code.google.com/p/\E[\w_\-]+/issues/list
+ https?\Q://rt.cpan.org/\E[^>]+|
+ https?\Q://github.com/\E[\w_]+/[\w_]+/issues|
+ https?\Q://code.google.com/p/\E[\w_\-]+/issues/list
)>#gx;
my %links;
@links{@links}=();
Modified: trunk/libxml-rss-libxml-perl/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/inc/Module/Install/Win32.pm?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/inc/Module/Install/Win32.pm (original)
+++ trunk/libxml-rss-libxml-perl/inc/Module/Install/Win32.pm Fri Jul 8 11:16:59 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libxml-rss-libxml-perl/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/inc/Module/Install/WriteAll.pm?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/inc/Module/Install/WriteAll.pm (original)
+++ trunk/libxml-rss-libxml-perl/inc/Module/Install/WriteAll.pm Fri Jul 8 11:16:59 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.01';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML.pm?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML.pm (original)
+++ trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML.pm Fri Jul 8 11:16:59 2011
@@ -8,7 +8,7 @@
use XML::LibXML::XPathContext;
use XML::RSS::LibXML::Namespaces qw(NS_RSS10);
-our $VERSION = '0.3100';
+our $VERSION = '0.3101';
__PACKAGE__->mk_accessors($_) for qw(impl encoding strict namespaces modules output stylesheets _internal num_items);
@@ -41,7 +41,7 @@
{
# Proxy methods
- foreach my $method qw(reset channel image add_item textinput skipDays skipHours) {
+ foreach my $method (qw(reset channel image add_item textinput skipDays skipHours)) {
no strict 'refs';
*{$method} = sub { my $self = shift; $self->impl->$method($self, @_) };
}
@@ -188,12 +188,10 @@
(($_->getLocalName() || '#default') => $_->getData)
} $node->getNamespaces();
-# while (my($p, $uri) = each %h) {
-# my $prefix = XML::RSS::LibXML::Namespaces::lookup_prefix($uri);
-# if ($prefix) {
-# $h{$prefix} = $uri;
-# }
-# }
+ if ($h{rdf} && ! $h{'#default'}) {
+ $h{'#default'} = NS_RSS10;
+ }
+
return wantarray ? %h : \%h;
}
@@ -239,7 +237,6 @@
# Test starting from the most likely candidate
if (eval { $xc->findnodes('/rdf:RDF', $dom) }) {
# 1.0 or 0.9.
-
# Wrap up in evail, because we may not have registered rss10
# namespace prefix
if (eval { $xc->findnodes("/rdf:RDF/$rss10_prefix:channel", $dom) }) {
Modified: trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/ImplBase.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/ImplBase.pm?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/ImplBase.pm (original)
+++ trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/ImplBase.pm Fri Jul 8 11:16:59 2011
@@ -124,14 +124,14 @@
sub store_element
{
my ($self, $container, $name, $value) = @_;
- if (exists $container->{$name} && ! eval { $container->{$name}->isa('XML::RSS::LibXML::ElementSpec') }) {
- if (ref($container->{$name}) eq 'ARRAY') {
- push @{ $container->{$name} }, $value;
- } else {
- $container->{$name} = [ $container->{$name}, $value ];
- }
+
+ my $v = $container->{$name};
+ if (! $v || eval { $v->isa('XML::RSS::LibXML::ElementSpec') }) {
+ $container->{$name} = $value;
+ } elsif (ref($v) eq 'ARRAY') {
+ push @$v, $value;
} else {
- $container->{$name} = $value;
+ $container->{$name} = [ $v, $value ];
}
}
Modified: trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/MagicElement.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/MagicElement.pm?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/MagicElement.pm (original)
+++ trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/MagicElement.pm Fri Jul 8 11:16:59 2011
@@ -12,6 +12,9 @@
;
use vars qw($VERSION);
$VERSION = '0.02';
+
+# Make UNIVERSAL::isa happy
+sub isa { __PACKAGE__ eq ($_[1] || '') }
sub new
{
@@ -54,8 +57,7 @@
my $self = shift;
return (defined $self->{_content} && length $self->{_content}) ?
$self->{_content} :
-# '';
- join('', map {$self->{$_} } $self->attributes);
+ join('', map { $self->{$_} || '' } $self->attributes);
}
1;
Modified: trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/V0_9.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/V0_9.pm?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/V0_9.pm (original)
+++ trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/V0_9.pm Fri Jul 8 11:16:59 2011
@@ -139,7 +139,7 @@
my ($root) = $xc->findnodes('/rdf:RDF/rss09:channel', $dom);
my %h = $self->parse_children($c, $root);
- foreach my $field qw(textinput image) {
+ foreach my $field (qw(textinput image)) {
delete $h{$field};
# if (my $v = $h{$field}) {
# $c->$field(UNIVERSAL::isa($v, 'XML::RSS::LibXML::MagicElement') ? $v : %$v);
@@ -274,7 +274,7 @@
$root->appendChild($channel);
my $node;
- foreach my $p qw(title link description) {
+ foreach my $p (qw(title link description)) {
my $text = $c->{channel}{$p};
next unless defined $text;
$node = $dom->createElement($p);
@@ -305,7 +305,7 @@
my $item = $dom->createElement('item');
my $node;
- foreach my $e qw(title link) {
+ foreach my $e (qw(title link)) {
$node = $dom->createElement($e);
$node->appendText($i->{$e});
$item->addChild($node);
Modified: trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/V0_91.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/V0_91.pm?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/V0_91.pm (original)
+++ trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/V0_91.pm Fri Jul 8 11:16:59 2011
@@ -169,7 +169,7 @@
my ($root) = $xc->findnodes('/rss/channel', $dom);
my %h = $self->parse_children($c, $root);
- foreach my $type qw(day hour) {
+ foreach my $type (qw(day hour)) {
my $field = 'skip' . ucfirst($type) . 's';
if (my $skip = delete $h{$field}) {
$c->$field(%$skip);
@@ -248,7 +248,7 @@
}
}
- foreach my $type qw(day hour) {
+ foreach my $type (qw(day hour)) {
my $field = 'skip' . ucfirst($type) . 's';
my $skip = $c->$field;
if ($skip && defined $skip->{$type}) {
Modified: trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/V2_0.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/V2_0.pm?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/V2_0.pm (original)
+++ trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/V2_0.pm Fri Jul 8 11:16:59 2011
@@ -141,7 +141,7 @@
my ($root) = $xc->findnodes('/rss/channel', $dom);
my %h = $self->parse_children($c, $root, './*[name() != "item"]');
- foreach my $type qw(day hour) {
+ foreach my $type (qw(day hour)) {
my $field = 'skip' . ucfirst($type) . 's';
if (my $skip = delete $h{$field}) {
if (ref $skip ne 'HASH') {
@@ -152,7 +152,7 @@
}
}
- foreach my $field qw(textinput image) {
+ foreach my $field (qw(textinput image)) {
if (my $v = $h{$field}) {
if (ref $v ne 'HASH') {
# warn "field $field has invalid entry (does this RSS validate?)";
@@ -249,7 +249,7 @@
$self->create_element_from_spec($c->channel, $dom, $channel, \%ChannelElements);
- foreach my $type qw(day hour) {
+ foreach my $type (qw(day hour)) {
my $field = 'skip' . ucfirst($type) . 's';
my $skip = $c->$field;
if ($skip && defined $skip->{$type}) {
Modified: trunk/libxml-rss-libxml-perl/t/generated/1.0-generated.xml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/t/generated/1.0-generated.xml?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/t/generated/1.0-generated.xml (original)
+++ trunk/libxml-rss-libxml-perl/t/generated/1.0-generated.xml Fri Jul 8 11:16:59 2011
@@ -3,18 +3,18 @@
<channel rdf:about="http://example.com/">
<link>http://example.com/</link>
<description>To lead by example</description>
- <dc:date>2010-06-22T01:00:35+0900</dc:date>
+ <dc:date>2011-07-06T04:45:23+0900</dc:date>
<title>Test 1.0 Feed</title>
<items>
<rdf:Seq>
- <rdf:li rdf:resource="http://example.com/2010/06/22"/>
+ <rdf:li rdf:resource="http://example.com/2011/07/06"/>
</rdf:Seq>
</items>
<image rdf:resource="http://example.com/example.gif"/>
<textinput rdf:resource="http://example.com/search.pl"/>
</channel>
- <item rdf:about="http://example.com/2010/06/22">
- <link>http://example.com/2010/06/22</link>
+ <item rdf:about="http://example.com/2011/07/06">
+ <link>http://example.com/2011/07/06</link>
<description>Yadda & yadda & yadda</description>
<dc:creator>joeuser at example.com</dc:creator>
<title>This is an item</title>
Modified: trunk/libxml-rss-libxml-perl/t/generated/2.0-generated.xml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/t/generated/2.0-generated.xml?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/t/generated/2.0-generated.xml (original)
+++ trunk/libxml-rss-libxml-perl/t/generated/2.0-generated.xml Fri Jul 8 11:16:59 2011
@@ -10,20 +10,20 @@
<link>http://example.com/</link>
<language>en-us</language>
<description/>
- <lastBuildDate>2010-06-22T01:00:37+0900</lastBuildDate>
+ <lastBuildDate>2011-07-06T04:45:24+0900</lastBuildDate>
<title>Test 2.0 Feed</title>
- <pubDate>2010-06-22T01:00:37+0900</pubDate>
+ <pubDate>2011-07-06T04:45:24+0900</pubDate>
<managingEditor>editor\@example.com</managingEditor>
<item>
<author>joeuser at example.com</author>
- <comments>http://example.com/2010/06/22/comments.html</comments>
+ <comments>http://example.com/2011/07/06/comments.html</comments>
<category>MyCategory</category>
- <link>http://example.com/2010/06/22</link>
- <enclosure>HASH(0x8faca0)</enclosure>
+ <link>http://example.com/2011/07/06</link>
+ <enclosure>HASH(0x100b85648)</enclosure>
<description>Yadda yadda yadda - R&D;</description>
<title>This is an item</title>
- <pubDate>ç« 6/22 01:00:37 2010 GMT</pubDate>
- <guid isPermaLink="true">http://example.com/2010/06/22</guid>
+ <pubDate>æ°´ 7/ 6 04:45:24 2011 GMT</pubDate>
+ <guid isPermaLink="true">http://example.com/2011/07/06</guid>
</item>
<image>
<url>http://example.com/example.gif</url>
Modified: trunk/libxml-rss-libxml-perl/t/items-are-0.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/t/items-are-0.t?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/t/items-are-0.t (original)
+++ trunk/libxml-rss-libxml-perl/t/items-are-0.t Fri Jul 8 11:16:59 2011
@@ -405,7 +405,7 @@
}
{
- foreach my $version qw(0.9 0.91 1.0 2.0) {
+ foreach my $version (qw(0.9 0.91 1.0 2.0)) {
my $rss = create_rss_1({version => $version});
# TEST
match_elements($rss, 'image', { url => 0, link => "http://freshmeat.net/", title => "freshmeat.net" });
@@ -413,7 +413,7 @@
}
{
- foreach my $version qw(0.9 0.91 1.0 2.0) {
+ foreach my $version (qw(0.9 0.91 1.0 2.0)) {
my $rss = create_rss_1({version => $version, image_link => "0",});
# TEST
match_elements($rss, 'image', { url => 0, link => 0, title => "freshmeat.net" });
@@ -421,7 +421,7 @@
}
{
- foreach my $version qw(0.91 2.0) {
+ foreach my $version (qw(0.91 2.0)) {
my $rss = create_rss_1({
version => $version,
image_params => [width => 0, height => 0, description => 0],
@@ -554,7 +554,7 @@
}
{
- foreach my $version qw(0.9 0.91 2.0) {
+ foreach my $version (qw(0.9 0.91 2.0)) {
my $rss = create_no_image_rss({version => $version});
# TEST
not_contains($rss, "<textinput>",
@@ -564,7 +564,7 @@
}
{
- foreach my $version qw(0.9 0.91) {
+ foreach my $version (qw(0.9 0.91)) {
my $rss = create_textinput_with_0_rss({version => $version});
# TEST
match_elements($rss, 'textinput', { title => 0, description => 0, name => 0, link => 0 });
Modified: trunk/libxml-rss-libxml-perl/t/regress-content-encoded.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/t/regress-content-encoded.t?rev=77220&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/t/regress-content-encoded.t (original)
+++ trunk/libxml-rss-libxml-perl/t/regress-content-encoded.t Fri Jul 8 11:16:59 2011
@@ -2,7 +2,7 @@
use Test::More (tests => 2);
use XML::RSS::LibXML;
-for my $version qw(1.0 2.0) {
+for my $version (qw(1.0 2.0)) {
my $rss = XML::RSS::LibXML->new(version => "2.0");
$rss->add_module(prefix => "content",
uri => "http://purl.org/rss/1.0/modules/content/"
@@ -18,4 +18,4 @@
like($rss->as_string, qr/<content:encoded>/);
}
-1;
+1;
More information about the Pkg-perl-cvs-commits
mailing list