r25730 - in /branches/upstream/libxml-rss-perl/current: ./ examples/ examples/0.9/ examples/0.91/ examples/1.0/ inc/ inc/Test/ inc/Test/Run/ inc/Test/Run/Builder/ lib/XML/ lib/XML/RSS/Private/Output/ lib/XML/RSS/Private/Output/Roles/ t/ testlib/Test/Run/CmdLine/
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Wed Oct 1 21:32:39 UTC 2008
Author: gregoa
Date: Wed Oct 1 21:32:36 2008
New Revision: 25730
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=25730
Log:
[svn-upgrade] Integrating new upstream version, libxml-rss-perl (1.35)
Added:
branches/upstream/libxml-rss-perl/current/Build.PL
branches/upstream/libxml-rss-perl/current/inc/
branches/upstream/libxml-rss-perl/current/inc/Test/
branches/upstream/libxml-rss-perl/current/inc/Test/Run/
branches/upstream/libxml-rss-perl/current/inc/Test/Run/Builder/
branches/upstream/libxml-rss-perl/current/inc/Test/Run/Builder/Manifest.pm
Modified:
branches/upstream/libxml-rss-perl/current/Changes
branches/upstream/libxml-rss-perl/current/MANIFEST
branches/upstream/libxml-rss-perl/current/META.yml
branches/upstream/libxml-rss-perl/current/Makefile.PL
branches/upstream/libxml-rss-perl/current/examples/0.9/create_rss.pl
branches/upstream/libxml-rss-perl/current/examples/0.91/create_rss_0.91.pl
branches/upstream/libxml-rss-perl/current/examples/0.91/create_rss_0.91_full.pl
branches/upstream/libxml-rss-perl/current/examples/1.0/create_rss_1.0.pl
branches/upstream/libxml-rss-perl/current/examples/convert.pl
branches/upstream/libxml-rss-perl/current/examples/create_rss_multiple.pl
branches/upstream/libxml-rss-perl/current/examples/rss2html.pl
branches/upstream/libxml-rss-perl/current/examples/rss_info.pl
branches/upstream/libxml-rss-perl/current/examples/update_rss.pl
branches/upstream/libxml-rss-perl/current/lib/XML/RSS.pm
branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/Base.pm
branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/Roles/ImageDims.pm
branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/Roles/ModulesElems.pm
branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/V0_9.pm
branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/V0_91.pm
branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/V1_0.pm
branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/V2_0.pm
branches/upstream/libxml-rss-perl/current/t/0.9-generate.t
branches/upstream/libxml-rss-perl/current/t/0.9-parse.t
branches/upstream/libxml-rss-perl/current/t/0.91-parse.t
branches/upstream/libxml-rss-perl/current/t/1.0-generate.t
branches/upstream/libxml-rss-perl/current/t/1.0-parse.t
branches/upstream/libxml-rss-perl/current/t/2.0-generate.t
branches/upstream/libxml-rss-perl/current/t/2.0-modules.t
branches/upstream/libxml-rss-perl/current/t/2.0-parse.t
branches/upstream/libxml-rss-perl/current/t/2.0-wo-title.t
branches/upstream/libxml-rss-perl/current/t/enclosures.t
branches/upstream/libxml-rss-perl/current/t/enclosures2.t
branches/upstream/libxml-rss-perl/current/t/guid.t
branches/upstream/libxml-rss-perl/current/t/pod.t
branches/upstream/libxml-rss-perl/current/t/rss2-gt-encoding.t
branches/upstream/libxml-rss-perl/current/testlib/Test/Run/CmdLine/WithTestManifest.pm
Added: branches/upstream/libxml-rss-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/Build.PL?rev=25730&op=file
==============================================================================
--- branches/upstream/libxml-rss-perl/current/Build.PL (added)
+++ branches/upstream/libxml-rss-perl/current/Build.PL Wed Oct 1 21:32:36 2008
@@ -1,0 +1,27 @@
+use strict;
+use warnings;
+
+use File::Spec;
+use lib File::Spec->catdir(File::Spec->curdir(), "inc");
+
+use Test::Run::Builder::Manifest;
+
+my $build = Test::Run::Builder::Manifest->new(
+ 'module_name' => "XML::RSS",
+ 'requires' =>
+ {
+ 'DateTime' => 0,
+ 'DateTime::Format::Mail' => 0,
+ 'DateTime::Format::W3CDTF' => 0,
+ 'HTML::Entities' => 0,
+ 'perl' => '5.006',
+ 'XML::Parser' => '2.23',
+ },
+ build_requires =>
+ {
+ 'Test::Manifest' => '0.9',
+ 'Test::More' => 0,
+ },
+ 'license' => "perl",
+);
+$build->create_build_script;
Modified: branches/upstream/libxml-rss-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/Changes?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/Changes (original)
+++ branches/upstream/libxml-rss-perl/current/Changes Wed Oct 1 21:32:36 2008
@@ -1,4 +1,22 @@
Revision history for Perl module XML::RSS
+
+1.35 - September 13, 2008
+ - Added a Module::Build-based Build.PL so we'll have an easier time
+ with the META.yml and the Kwalitee.
+ - Kwalitee - added "use warnings" to all Perl files.
+ - now depending on at least perl-5.6.0.
+ - Kwalitee - fixed the "use" statement of
+ "Test::Run::CmdLine::Iface" to a runtime require.
+
+1.34 - September 12, 2008
+ - fixed a typo in the documentation of lib/XML/RSS.pm -
+ "regardless" instead of "regarless".
+ - http://rt.cpan.org/Public/Bug/Display.html?id=37916
+ - (Reported by Reuben Thomas, Fixed by Shlomif).
+ - fixed a code fragment - pop() instead of shift() for older
+ items, and while() instead of if():
+ - http://rt.cpan.org/Public/Bug/Display.html?id=39231
+ - (Reported by Dave, Fixed by Shlomif).
1.33 - June 8, 2008
- Allowed the end-user to customise the _encode() routine in
Modified: branches/upstream/libxml-rss-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/MANIFEST?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/MANIFEST (original)
+++ branches/upstream/libxml-rss-perl/current/MANIFEST Wed Oct 1 21:32:36 2008
@@ -1,15 +1,16 @@
+Build.PL
Changes
+examples/0.91/create_rss_0.91_full.pl
+examples/0.91/create_rss_0.91.pl
+examples/0.91/fm0.91_full.rdf
+examples/0.91/fm0.91.rdf
+examples/0.91/fm.rdf
+examples/0.91/rss-0.91.dtd
+examples/0.91/xmlnews.rdf
examples/0.9/create_rss.pl
examples/0.9/linuxtoday.rdf
examples/0.9/rss-0.9.dtd
examples/0.9/slashdot.rdf
-examples/0.91/create_rss_0.91.pl
-examples/0.91/create_rss_0.91_full.pl
-examples/0.91/fm.rdf
-examples/0.91/fm0.91.rdf
-examples/0.91/fm0.91_full.rdf
-examples/0.91/rss-0.91.dtd
-examples/0.91/xmlnews.rdf
examples/1.0/create_rss_1.0.pl
examples/1.0/rss1.0.rdf
examples/1.0/slash.rdf
@@ -19,8 +20,8 @@
examples/README
examples/rss2html.pl
examples/rss_info.pl
-t/data/rss-permalink.xml
examples/update_rss.pl
+inc/Test/Run/Builder/Manifest.pm
lib/XML/RSS.pm
lib/XML/RSS/Private/Output/Base.pm
lib/XML/RSS/Private/Output/Roles/ImageDims.pm
@@ -32,45 +33,45 @@
Makefile.PL
MANIFEST
README
+t/0.91-parse.t
t/0.9-generate.t
t/0.9-parse.t
t/0.9-strict.t
-t/0.91-parse.t
t/1.0-generate.t
+t/1.0-parse-2.t
t/1.0-parse-exotic.t
t/1.0-parse.t
-t/1.0-parse-2.t
t/1.0-to-2.0.t
t/2.0-generate.t
t/2.0-modules.t
+t/2.0-parse-2.t
t/2.0-parse.t
-t/2.0-parse-2.t
t/2.0-permalink.t
t/2.0-wo-title.t
t/add-item-insert-vs-append.t
t/auto_add_modules.t
t/charset1.t
-t/data/freshmeat.rdf
-t/data/merlyn1.rss
t/data/1.0/rss1.0.exotic.rdf
t/data/1.0/with_content.rdf
t/data/2.0/sf-hs-with-lastBuildDate.rss
t/data/2.0/sf-hs-with-pubDate.rss
+t/data/freshmeat.rdf
+t/data/merlyn1.rss
+t/data/rss-permalink.xml
+t/enclosures2.t
t/enclosures.t
-t/enclosures2.t
t/encode-output.t
t/encoding.t
+testlib/Test/Run/CmdLine/WithTestManifest.pm
t/generated/placeholder.txt
t/guid.t
t/items-are-0.t
t/load.t
+TODO
+t/pod-coverage.t
t/pod.t
-t/pod-coverage.t
t/rss2-gt-encoding.t
t/test_manifest
t/version.t
t/xml-header.t
-testlib/Test/Run/CmdLine/WithTestManifest.pm
-TODO
-MANIFEST
-META.yml Module meta-data (added by MakeMaker)
+META.yml
Modified: branches/upstream/libxml-rss-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/META.yml?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/META.yml (original)
+++ branches/upstream/libxml-rss-perl/current/META.yml Wed Oct 1 21:32:36 2008
@@ -1,18 +1,45 @@
---- #YAML:1.0
-name: XML-RSS
-version: 1.33
-abstract: ~
-license: ~
-generated_by: ExtUtils::MakeMaker version 6.36
-distribution_type: module
-requires:
- DateTime: 0
- DateTime::Format::Mail: 0
- DateTime::Format::W3CDTF: 0
- HTML::Entities: 0
- Test::Manifest: 0.9
- Test::More: 0
- XML::Parser: 2.23
+---
+name: XML-RSS
+version: 1.35
+author:
+ - 'Original code: Jonathan Eisenzopf <eisen at pobox.com>'
+ - |-
+ Further changes: Rael Dornfest <rael at oreilly.com>, Ask Bjoern Hansen
+ <ask at develooper.com>
+ - 'Currently: Shlomi Fish <shlomif at cpan.org>'
+abstract: creates and updates RSS files
+license: perl
+resources:
+ license: http://dev.perl.org/licenses/
+requires:
+ DateTime: 0
+ DateTime::Format::Mail: 0
+ DateTime::Format::W3CDTF: 0
+ HTML::Entities: 0
+ XML::Parser: 2.23
+ perl: 5.006
+build_requires:
+ Test::Manifest: 0.9
+ Test::More: 0
+provides:
+ XML::RSS:
+ file: lib/XML/RSS.pm
+ version: 1.35
+ XML::RSS::Private::Output::Base:
+ file: lib/XML/RSS/Private/Output/Base.pm
+ XML::RSS::Private::Output::Roles::ImageDims:
+ file: lib/XML/RSS/Private/Output/Roles/ImageDims.pm
+ XML::RSS::Private::Output::Roles::ModulesElems:
+ file: lib/XML/RSS/Private/Output/Roles/ModulesElems.pm
+ XML::RSS::Private::Output::V0_9:
+ file: lib/XML/RSS/Private/Output/V0_9.pm
+ XML::RSS::Private::Output::V0_91:
+ file: lib/XML/RSS/Private/Output/V0_91.pm
+ XML::RSS::Private::Output::V1_0:
+ file: lib/XML/RSS/Private/Output/V1_0.pm
+ XML::RSS::Private::Output::V2_0:
+ file: lib/XML/RSS/Private/Output/V2_0.pm
+generated_by: Module::Build version 0.2808
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.2.html
- version: 1.2
+ url: http://module-build.sourceforge.net/META-spec-v1.2.html
+ version: 1.2
Modified: branches/upstream/libxml-rss-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/Makefile.PL?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/Makefile.PL (original)
+++ branches/upstream/libxml-rss-perl/current/Makefile.PL Wed Oct 1 21:32:36 2008
@@ -1,3 +1,5 @@
+use 5.006;
+
use ExtUtils::MakeMaker;
@extras = ();
@@ -10,6 +12,13 @@
ABSTRACT_FROM => 'lib/XML/RSS.pm',
AUTHOR => ' Ask Bjoern Hansen <ask at develooper.com>')
if ($ExtUtils::MakeMaker::Version >= 5.4301);
+
+if ($ExtUtils::MakeMaker::Version >= 6.36)
+{
+ push(@extras,
+ LICENSE => "perl",
+ );
+}
{
package MY;
@@ -50,5 +59,6 @@
'DateTime::Format::W3CDTF' => 0,
},
'clean' => { FILES => 'XML-RSS-* t/generated/*.xml' },
+ 'PL_FILES' => {},
@extras
);
Modified: branches/upstream/libxml-rss-perl/current/examples/0.9/create_rss.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/examples/0.9/create_rss.pl?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/examples/0.9/create_rss.pl (original)
+++ branches/upstream/libxml-rss-perl/current/examples/0.9/create_rss.pl Wed Oct 1 21:32:36 2008
@@ -3,6 +3,8 @@
# creates and prints RSS 0.9 file
use strict;
+use warnings;
+
use XML::RSS;
my $rss = new XML::RSS(version => '0.9');
Modified: branches/upstream/libxml-rss-perl/current/examples/0.91/create_rss_0.91.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/examples/0.91/create_rss_0.91.pl?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/examples/0.91/create_rss_0.91.pl (original)
+++ branches/upstream/libxml-rss-perl/current/examples/0.91/create_rss_0.91.pl Wed Oct 1 21:32:36 2008
@@ -2,6 +2,8 @@
# creates and prints RSS 0.91 file
use strict;
+use warnings;
+
use XML::RSS;
my $rss = new XML::RSS (version => "0.91") ;
Modified: branches/upstream/libxml-rss-perl/current/examples/0.91/create_rss_0.91_full.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/examples/0.91/create_rss_0.91_full.pl?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/examples/0.91/create_rss_0.91_full.pl (original)
+++ branches/upstream/libxml-rss-perl/current/examples/0.91/create_rss_0.91_full.pl Wed Oct 1 21:32:36 2008
@@ -6,6 +6,8 @@
# are available.
use strict;
+use warnings;
+
use XML::RSS;
my $rss = new XML::RSS (version => '0.91',
Modified: branches/upstream/libxml-rss-perl/current/examples/1.0/create_rss_1.0.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/examples/1.0/create_rss_1.0.pl?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/examples/1.0/create_rss_1.0.pl (original)
+++ branches/upstream/libxml-rss-perl/current/examples/1.0/create_rss_1.0.pl Wed Oct 1 21:32:36 2008
@@ -6,6 +6,8 @@
# are available.
use strict;
+use warnings;
+
use XML::RSS;
my $rss = new XML::RSS (version => '1.0');
Modified: branches/upstream/libxml-rss-perl/current/examples/convert.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/examples/convert.pl?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/examples/convert.pl (original)
+++ branches/upstream/libxml-rss-perl/current/examples/convert.pl Wed Oct 1 21:32:36 2008
@@ -1,6 +1,8 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
use strict;
+use warnings;
+
use XML::RSS;
# print an error unless there are 2 command-line args
Modified: branches/upstream/libxml-rss-perl/current/examples/create_rss_multiple.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/examples/create_rss_multiple.pl?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/examples/create_rss_multiple.pl (original)
+++ branches/upstream/libxml-rss-perl/current/examples/create_rss_multiple.pl Wed Oct 1 21:32:36 2008
@@ -1,8 +1,10 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
# create_rss.pl
# creates multiple instances of XML::RSS
use strict;
+use warnings;
+
use XML::RSS;
my $rss = new XML::RSS(version => '0.9');
Modified: branches/upstream/libxml-rss-perl/current/examples/rss2html.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/examples/rss2html.pl?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/examples/rss2html.pl (original)
+++ branches/upstream/libxml-rss-perl/current/examples/rss2html.pl Wed Oct 1 21:32:36 2008
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
# rss2html - converts an RSS file to HTML
# It take one argument, either a file on the local system,
# or an HTTP URL like http://slashdot.org/slashdot.rdf
@@ -7,6 +7,8 @@
# INCLUDES
use strict;
+use warnings;
+
use XML::RSS;
use LWP::Simple;
Modified: branches/upstream/libxml-rss-perl/current/examples/rss_info.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/examples/rss_info.pl?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/examples/rss_info.pl (original)
+++ branches/upstream/libxml-rss-perl/current/examples/rss_info.pl Wed Oct 1 21:32:36 2008
@@ -1,8 +1,13 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
+
# channel_info.pl
# print channel info
+
use lib '.';
+
use strict;
+use warnings;
+
use XML::RSS;
my $rss = new XML::RSS;
Modified: branches/upstream/libxml-rss-perl/current/examples/update_rss.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/examples/update_rss.pl?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/examples/update_rss.pl (original)
+++ branches/upstream/libxml-rss-perl/current/examples/update_rss.pl Wed Oct 1 21:32:36 2008
@@ -1,7 +1,9 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
# update_rss.pl
# Adds a new item to the RSS file
use strict;
+use warnings;
+
use XML::RSS;
die "Syntax: update_rss.pl source.rdf destination.rdf\n\n"
Added: branches/upstream/libxml-rss-perl/current/inc/Test/Run/Builder/Manifest.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/inc/Test/Run/Builder/Manifest.pm?rev=25730&op=file
==============================================================================
--- branches/upstream/libxml-rss-perl/current/inc/Test/Run/Builder/Manifest.pm (added)
+++ branches/upstream/libxml-rss-perl/current/inc/Test/Run/Builder/Manifest.pm Wed Oct 1 21:32:36 2008
@@ -1,0 +1,73 @@
+package Test::Run::Builder::Manifest;
+
+use strict;
+use warnings;
+
+use Module::Build;
+
+use vars qw(@ISA);
+
+ at ISA = (qw(Module::Build));
+
+sub find_test_files
+{
+ require Test::Manifest;
+
+ return [Test::Manifest::get_t_files()];
+}
+
+sub ACTION_runtest
+{
+ my ($self) = @_;
+ my $p = $self->{properties};
+
+ $self->depends_on('code');
+
+ local @INC = @INC;
+
+ # Make sure we test the module in blib/
+ unshift @INC, (File::Spec->catdir($p->{base_dir}, $self->blib, 'lib'),
+ File::Spec->catdir($p->{base_dir}, $self->blib, 'arch'));
+
+ $self->do_test_run_tests;
+}
+
+sub ACTION_distruntest {
+ my ($self) = @_;
+
+ $self->depends_on('distdir');
+
+ my $start_dir = $self->cwd;
+ my $dist_dir = $self->dist_dir;
+ chdir $dist_dir or die "Cannot chdir to $dist_dir: $!";
+ # XXX could be different names for scripts
+
+ $self->run_perl_script('Build.PL') # XXX Should this be run w/ --nouse-rcfile
+ or die "Error executing 'Build.PL' in dist directory: $!";
+ $self->run_perl_script('Build')
+ or die "Error executing 'Build' in dist directory: $!";
+ $self->run_perl_script('Build', [], ['runtest'])
+ or die "Error executing 'Build test' in dist directory";
+ chdir $start_dir;
+}
+
+sub do_test_run_tests
+{
+ my $self = shift;
+
+ require Test::Manifest;
+ require Test::Run::CmdLine::Iface;
+
+ my $test_run =
+ Test::Run::CmdLine::Iface->new(
+ {
+ 'test_files' => $self->find_test_files(),
+ }
+ # 'backend_params' => $self->_get_backend_params(),
+ );
+
+ return $test_run->run();
+}
+
+1;
+
Modified: branches/upstream/libxml-rss-perl/current/lib/XML/RSS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/lib/XML/RSS.pm?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/lib/XML/RSS.pm (original)
+++ branches/upstream/libxml-rss-perl/current/lib/XML/RSS.pm Wed Oct 1 21:32:36 2008
@@ -1,5 +1,8 @@
package XML::RSS;
+
use strict;
+use warnings;
+
use Carp;
use XML::Parser;
use HTML::Entities qw(encode_entities_numeric encode_entities);
@@ -14,7 +17,7 @@
use vars qw($VERSION $AUTOLOAD @ISA $AUTO_ADD);
-$VERSION = '1.33';
+$VERSION = '1.35';
$AUTO_ADD = 0;
@@ -1304,11 +1307,16 @@
# or save it to a file
$rss->save("fm.rdf");
- # insert an item into an RSS file and removes the oldest item if
- # there are already 15 items
+ # insert an item into an RSS file and removes the oldest ones if
+ # there are already 15 items or more
my $rss = new XML::RSS;
$rss->parsefile("fm.rdf");
- shift(@{$rss->{'items'}}) if (@{$rss->{'items'}} == 15);
+
+ while (@{$rss->{'items'}} >= 15)
+ {
+ pop(@{$rss->{'items'});
+ }
+
$rss->add_item(title => "MpegTV Player (mtv) 1.0.9.7",
link => "http://freshmeat.net/news/1999/06/21/930003958.html",
mode => 'insert'
@@ -1358,7 +1366,7 @@
Constructor for XML::RSS. It returns a reference to an XML::RSS object.
You may also pass the RSS version and the XML encoding to use. The default
B<version> is 1.0. The default B<encoding> is UTF-8. You may also specify
-the B<output> format regarless of the input version. This comes in handy
+the B<output> format regardless of the input version. This comes in handy
when you want to convert RSS between versions. The XML::RSS modules
will convert between any of the formats. If you set <encode_output> XML::RSS
will make sure to encode any entities in generated RSS. This is now on by
@@ -1629,17 +1637,20 @@
=head1 AUTHOR
- Original code: Jonathan Eisenzopf <eisen at pobox.com>
- Further changes: Rael Dornfest <rael at oreilly.com>
-
- Currently: Ask Bjoern Hansen <ask at develooper.com>
-
+Original code: Jonathan Eisenzopf <eisen at pobox.com>
+
+Further changes: Rael Dornfest <rael at oreilly.com>, Ask Bjoern Hansen
+<ask at develooper.com>
+
+Currently: Shlomi Fish <shlomif at cpan.org>
=head1 COPYRIGHT
Copyright (c) 2001 Jonathan Eisenzopf <eisen at pobox.com> and Rael
Dornfest <rael at oreilly.com>, Copyright (C) 2006-2007 Ask Bjoern Hansen
<ask at develooper.com>.
+
+=head1 LICENSE
XML::RSS is free software. You can redistribute it and/or
modify it under the same terms as Perl itself.
Modified: branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/Base.pm?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/Base.pm (original)
+++ branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/Base.pm Wed Oct 1 21:32:36 2008
@@ -1,6 +1,7 @@
package XML::RSS::Private::Output::Base;
use strict;
+use warnings;
use Carp;
Modified: branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/Roles/ImageDims.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/Roles/ImageDims.pm?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/Roles/ImageDims.pm (original)
+++ branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/Roles/ImageDims.pm Wed Oct 1 21:32:36 2008
@@ -1,6 +1,7 @@
package XML::RSS::Private::Output::Roles::ImageDims;
use strict;
+use warnings;
sub _out_image_dims {
my $self = shift;
Modified: branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/Roles/ModulesElems.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/Roles/ModulesElems.pm?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/Roles/ModulesElems.pm (original)
+++ branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/Roles/ModulesElems.pm Wed Oct 1 21:32:36 2008
@@ -1,6 +1,7 @@
package XML::RSS::Private::Output::Roles::ModulesElems;
use strict;
+use warnings;
sub _out_modules_elements_if_supported {
my ($self, $top_elem) = @_;
Modified: branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/V0_9.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/V0_9.pm?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/V0_9.pm (original)
+++ branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/V0_9.pm Wed Oct 1 21:32:36 2008
@@ -1,6 +1,7 @@
package XML::RSS::Private::Output::V0_9;
use strict;
+use warnings;
use vars (qw(@ISA));
Modified: branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/V0_91.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/V0_91.pm?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/V0_91.pm (original)
+++ branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/V0_91.pm Wed Oct 1 21:32:36 2008
@@ -1,6 +1,7 @@
package XML::RSS::Private::Output::V0_91;
use strict;
+use warnings;
use vars (qw(@ISA));
Modified: branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/V1_0.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/V1_0.pm?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/V1_0.pm (original)
+++ branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/V1_0.pm Wed Oct 1 21:32:36 2008
@@ -1,6 +1,7 @@
package XML::RSS::Private::Output::V1_0;
use strict;
+use warnings;
use vars (qw(@ISA));
Modified: branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/V2_0.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/V2_0.pm?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/V2_0.pm (original)
+++ branches/upstream/libxml-rss-perl/current/lib/XML/RSS/Private/Output/V2_0.pm Wed Oct 1 21:32:36 2008
@@ -1,6 +1,7 @@
package XML::RSS::Private::Output::V2_0;
use strict;
+use warnings;
use vars (qw(@ISA));
Modified: branches/upstream/libxml-rss-perl/current/t/0.9-generate.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/t/0.9-generate.t?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/t/0.9-generate.t (original)
+++ branches/upstream/libxml-rss-perl/current/t/0.9-generate.t Wed Oct 1 21:32:36 2008
@@ -1,4 +1,5 @@
use strict;
+use warnings;
use Test::More;
plan tests => 1;
Modified: branches/upstream/libxml-rss-perl/current/t/0.9-parse.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/t/0.9-parse.t?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/t/0.9-parse.t (original)
+++ branches/upstream/libxml-rss-perl/current/t/0.9-parse.t Wed Oct 1 21:32:36 2008
@@ -1,4 +1,5 @@
use strict;
+use warnings;
use strict;
use Test::More;
Modified: branches/upstream/libxml-rss-perl/current/t/0.91-parse.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/t/0.91-parse.t?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/t/0.91-parse.t (original)
+++ branches/upstream/libxml-rss-perl/current/t/0.91-parse.t Wed Oct 1 21:32:36 2008
@@ -1,4 +1,6 @@
use strict;
+use warnings;
+
use Test::More;
use constant RSS_VERSION => "0.91";
Modified: branches/upstream/libxml-rss-perl/current/t/1.0-generate.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/t/1.0-generate.t?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/t/1.0-generate.t (original)
+++ branches/upstream/libxml-rss-perl/current/t/1.0-generate.t Wed Oct 1 21:32:36 2008
@@ -1,4 +1,5 @@
use strict;
+use warnings;
use Test::More;
plan tests => 22;
Modified: branches/upstream/libxml-rss-perl/current/t/1.0-parse.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/t/1.0-parse.t?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/t/1.0-parse.t (original)
+++ branches/upstream/libxml-rss-perl/current/t/1.0-parse.t Wed Oct 1 21:32:36 2008
@@ -1,4 +1,5 @@
use strict;
+use warnings;
use Test::More;
use constant RSS_VERSION => "1.0";
Modified: branches/upstream/libxml-rss-perl/current/t/2.0-generate.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/t/2.0-generate.t?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/t/2.0-generate.t (original)
+++ branches/upstream/libxml-rss-perl/current/t/2.0-generate.t Wed Oct 1 21:32:36 2008
@@ -1,4 +1,5 @@
use strict;
+use warnings;
use Test::More tests => 27;
Modified: branches/upstream/libxml-rss-perl/current/t/2.0-modules.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/t/2.0-modules.t?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/t/2.0-modules.t (original)
+++ branches/upstream/libxml-rss-perl/current/t/2.0-modules.t Wed Oct 1 21:32:36 2008
@@ -1,5 +1,6 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
use strict;
+use warnings;
use Test::More tests => 3;
use XML::RSS;
Modified: branches/upstream/libxml-rss-perl/current/t/2.0-parse.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/t/2.0-parse.t?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/t/2.0-parse.t (original)
+++ branches/upstream/libxml-rss-perl/current/t/2.0-parse.t Wed Oct 1 21:32:36 2008
@@ -1,4 +1,5 @@
use strict;
+use warnings;
use Test::More;
use constant RSS_VERSION => "2.0";
Modified: branches/upstream/libxml-rss-perl/current/t/2.0-wo-title.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/t/2.0-wo-title.t?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/t/2.0-wo-title.t (original)
+++ branches/upstream/libxml-rss-perl/current/t/2.0-wo-title.t Wed Oct 1 21:32:36 2008
@@ -1,6 +1,8 @@
#!/usr/bin/perl -w
use strict;
+use warnings;
+
use Test::More tests => 2;
# TEST
Modified: branches/upstream/libxml-rss-perl/current/t/enclosures.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/t/enclosures.t?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/t/enclosures.t (original)
+++ branches/upstream/libxml-rss-perl/current/t/enclosures.t Wed Oct 1 21:32:36 2008
@@ -1,4 +1,5 @@
use strict;
+use warnings;
use Test::More;
use constant RSS_VERSION => "2.0";
Modified: branches/upstream/libxml-rss-perl/current/t/enclosures2.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/t/enclosures2.t?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/t/enclosures2.t (original)
+++ branches/upstream/libxml-rss-perl/current/t/enclosures2.t Wed Oct 1 21:32:36 2008
@@ -1,4 +1,5 @@
use strict;
+use warnings;
use Test::More;
use constant RSS_VERSION => "2.0";
Modified: branches/upstream/libxml-rss-perl/current/t/guid.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/t/guid.t?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/t/guid.t (original)
+++ branches/upstream/libxml-rss-perl/current/t/guid.t Wed Oct 1 21:32:36 2008
@@ -2,6 +2,7 @@
# https://rt.cpan.org/Ticket/Display.html?id=24742
use strict;
+use warnings;
use Test::More tests => 1;
Modified: branches/upstream/libxml-rss-perl/current/t/pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/t/pod.t?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/t/pod.t (original)
+++ branches/upstream/libxml-rss-perl/current/t/pod.t Wed Oct 1 21:32:36 2008
@@ -1,5 +1,8 @@
use Test::More;
+
use strict;
+use warnings;
+
eval "use Test::Pod 1.00";
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
all_pod_files_ok();
Modified: branches/upstream/libxml-rss-perl/current/t/rss2-gt-encoding.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/t/rss2-gt-encoding.t?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/t/rss2-gt-encoding.t (original)
+++ branches/upstream/libxml-rss-perl/current/t/rss2-gt-encoding.t Wed Oct 1 21:32:36 2008
@@ -1,6 +1,8 @@
#!/usr/bin/perl -w
use strict;
+use warnings;
+
use Test::More;
if (eval "require Test::Differences") {
Modified: branches/upstream/libxml-rss-perl/current/testlib/Test/Run/CmdLine/WithTestManifest.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/testlib/Test/Run/CmdLine/WithTestManifest.pm?rev=25730&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/testlib/Test/Run/CmdLine/WithTestManifest.pm (original)
+++ branches/upstream/libxml-rss-perl/current/testlib/Test/Run/CmdLine/WithTestManifest.pm Wed Oct 1 21:32:36 2008
@@ -7,10 +7,11 @@
use Test::Manifest ();
-use Test::Run::CmdLine::Iface;
+
sub run_t_manifest
{
+ require Test::Run::CmdLine::Iface;
my ($test_verbose, $inst_lib, $inst_archlib, $test_level) = @_;
local @INC = @INC;
unshift @INC, map { File::Spec->rel2abs($_) } ($inst_lib, $inst_archlib);
More information about the Pkg-perl-cvs-commits
mailing list