r72995 - in /trunk/libxml-rss-perl: Build.PL Changes MANIFEST META.yml debian/changelog examples/rss2html.pl lib/XML/RSS.pm t/2.0-parse-cloud.t t/test_manifest
periapt-guest at users.alioth.debian.org
periapt-guest at users.alioth.debian.org
Thu Apr 21 18:17:59 UTC 2011
Author: periapt-guest
Date: Thu Apr 21 18:17:36 2011
New Revision: 72995
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=72995
Log:
New upstream release
Added:
trunk/libxml-rss-perl/t/2.0-parse-cloud.t
- copied unchanged from r72994, branches/upstream/libxml-rss-perl/current/t/2.0-parse-cloud.t
Modified:
trunk/libxml-rss-perl/Build.PL
trunk/libxml-rss-perl/Changes
trunk/libxml-rss-perl/MANIFEST
trunk/libxml-rss-perl/META.yml
trunk/libxml-rss-perl/debian/changelog
trunk/libxml-rss-perl/examples/rss2html.pl
trunk/libxml-rss-perl/lib/XML/RSS.pm
trunk/libxml-rss-perl/t/test_manifest
Modified: trunk/libxml-rss-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-perl/Build.PL?rev=72995&op=diff
==============================================================================
--- trunk/libxml-rss-perl/Build.PL (original)
+++ trunk/libxml-rss-perl/Build.PL Thu Apr 21 18:17:36 2011
@@ -21,6 +21,10 @@
{
'Test::Manifest' => '0.9',
'Test::More' => 0,
+ },
+ configure_requires =>
+ {
+ 'Module::Build' => '0.36',
},
'license' => "perl",
dist_author => 'Shlomi Fish <shlomif at cpan.org>',
Modified: trunk/libxml-rss-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-perl/Changes?rev=72995&op=diff
==============================================================================
--- trunk/libxml-rss-perl/Changes (original)
+++ trunk/libxml-rss-perl/Changes Thu Apr 21 18:17:36 2011
@@ -1,4 +1,11 @@
Revision history for Perl module XML::RSS
+
+1.49 - April 7, 2011
+ - Some correctness and Modern Perl changes to the rss2html.pl
+ script (it still appears to be very hairy.)
+ - Add support for parsing rssCloud:
+ - https://rt.cpan.org/Ticket/Display.html?id=67241
+ - Thanks to STUIFZAND for the patch.
1.48 - April 23, 2010
- Fix the $rss->parse($string)->other_method() display (had to add
Modified: trunk/libxml-rss-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-perl/MANIFEST?rev=72995&op=diff
==============================================================================
--- trunk/libxml-rss-perl/MANIFEST (original)
+++ trunk/libxml-rss-perl/MANIFEST Thu Apr 21 18:17:36 2011
@@ -48,6 +48,7 @@
t/2.0-generate.t
t/2.0-modules.t
t/2.0-parse-2.t
+t/2.0-parse-cloud.t
t/2.0-parse-self.t
t/2.0-parse.t
t/2.0-permalink.t
Modified: trunk/libxml-rss-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-perl/META.yml?rev=72995&op=diff
==============================================================================
--- trunk/libxml-rss-perl/META.yml (original)
+++ trunk/libxml-rss-perl/META.yml Thu Apr 21 18:17:36 2011
@@ -7,7 +7,7 @@
Test::More: 0
configure_requires:
Module::Build: 0.36
-generated_by: 'Module::Build version 0.3607'
+generated_by: 'Module::Build version 0.3617'
keywords:
- feed
- feeds
@@ -28,7 +28,7 @@
provides:
XML::RSS:
file: lib/XML/RSS.pm
- version: 1.48
+ version: 1.49
XML::RSS::Private::Output::Base:
file: lib/XML/RSS/Private/Output/Base.pm
XML::RSS::Private::Output::Roles::ImageDims:
@@ -54,4 +54,4 @@
homepage: http://perl-rss.sourceforge.net/
license: http://dev.perl.org/licenses/
repository: https://svn.perl.org/modules/XML-RSS/trunk
-version: 1.48
+version: 1.49
Modified: trunk/libxml-rss-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-perl/debian/changelog?rev=72995&op=diff
==============================================================================
--- trunk/libxml-rss-perl/debian/changelog (original)
+++ trunk/libxml-rss-perl/debian/changelog Thu Apr 21 18:17:36 2011
@@ -1,12 +1,13 @@
-libxml-rss-perl (1.48-2) UNRELEASED; urgency=low
+libxml-rss-perl (1.49-1) UNRELEASED; urgency=low
[ Ansgar Burchardt ]
* Update my email address.
[ Nicholas Bamber ]
* Added myself to Uploaders
-
- -- Ansgar Burchardt <ansgar at debian.org> Mon, 01 Nov 2010 11:17:41 +0100
+ * New upstream release
+
+ -- Nicholas Bamber <nicholas at periapt.co.uk> Thu, 21 Apr 2011 19:20:38 +0100
libxml-rss-perl (1.48-1) unstable; urgency=low
Modified: trunk/libxml-rss-perl/examples/rss2html.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-perl/examples/rss2html.pl?rev=72995&op=diff
==============================================================================
--- trunk/libxml-rss-perl/examples/rss2html.pl (original)
+++ trunk/libxml-rss-perl/examples/rss2html.pl Thu Apr 21 18:17:36 2011
@@ -15,6 +15,8 @@
# Declare variables
my $content;
my $file;
+
+binmode STDOUT, ":encoding(utf8)";
# MAIN
# check for command-line argument
@@ -42,12 +44,12 @@
}
# print the HTML channel
-&print_html($rss);
+print_html($rss);
# SUBROUTINES
sub print_html {
my $rss = shift;
- print <<HTML;
+ print <<"HTML";
<table bgcolor="#000000" border="0" width="200"><tr><td>
<TABLE CELLSPACING="1" CELLPADDING="4" BGCOLOR="#FFFFFF" BORDER=0 width="100%">
<tr>
@@ -57,7 +59,7 @@
# print channel image
if ($rss->{'image'}->{'link'}) {
- print <<HTML;
+ print <<"HTML";
<center>
<p><a href="$rss->{'image'}->{'link'}"><img src="$rss->{'image'}->{'url'}" alt="$rss->{'image'}->{'title'}" border="0"
HTML
@@ -76,7 +78,7 @@
# if there's a textinput element
if ($rss->{'textinput'}->{'title'}) {
- print <<HTML;
+ print <<"HTML";
<form method="get" action="$rss->{'textinput'}->{'link'}">
$rss->{'textinput'}->{'description'}<BR>
<input type="text" name="$rss->{'textinput'}->{'name'}"><BR>
@@ -87,12 +89,12 @@
# if there's a copyright element
if ($rss->{'channel'}->{'copyright'}) {
- print <<HTML;
+ print <<"HTML";
<p><sub>$rss->{'channel'}->{'copyright'}</sub></p>
HTML
}
- print <<HTML;
+ print <<"HTML";
</td>
</TR>
</TABLE>
@@ -100,8 +102,3 @@
HTML
}
-
-
-
-
-
Modified: trunk/libxml-rss-perl/lib/XML/RSS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-perl/lib/XML/RSS.pm?rev=72995&op=diff
==============================================================================
--- trunk/libxml-rss-perl/lib/XML/RSS.pm (original)
+++ trunk/libxml-rss-perl/lib/XML/RSS.pm Thu Apr 21 18:17:36 2011
@@ -16,7 +16,7 @@
require 5.008;
-$VERSION = '1.48';
+$VERSION = '1.49';
$AUTO_ADD = 0;
@@ -993,6 +993,11 @@
elsif ($self->_start_array_element("skipDays", $el)) {
# Do nothing - already done in the predicate.
}
+ elsif ($el eq 'cloud') {
+ if (keys %attribs) {
+ $self->{channel}{cloud} = \%attribs;
+ }
+ }
elsif ($el eq 'item') {
# deal with trouble makers who use mod_content :)
Modified: trunk/libxml-rss-perl/t/test_manifest
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-perl/t/test_manifest?rev=72995&op=diff
==============================================================================
--- trunk/libxml-rss-perl/t/test_manifest (original)
+++ trunk/libxml-rss-perl/t/test_manifest Thu Apr 21 18:17:36 2011
@@ -15,6 +15,7 @@
2.0-modules.t
2.0-permalink.t
2.0-parse.t
+2.0-parse-cloud.t
2.0-parse-2.t
2.0-parse-self.t
2.0-wo-title.t
More information about the Pkg-perl-cvs-commits
mailing list