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