r48497 - in /branches/upstream/libxml-rss-perl/current: Changes MANIFEST META.yml lib/XML/RSS.pm t/save-while-in-taint-mode.t t/test_manifest
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Wed Dec 9 20:05:04 UTC 2009
Author: jawnsy-guest
Date: Wed Dec 9 20:04:34 2009
New Revision: 48497
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=48497
Log:
[svn-upgrade] Integrating new upstream version, libxml-rss-perl (1.47)
Added:
branches/upstream/libxml-rss-perl/current/t/save-while-in-taint-mode.t
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/lib/XML/RSS.pm
branches/upstream/libxml-rss-perl/current/t/test_manifest
Modified: branches/upstream/libxml-rss-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/Changes?rev=48497&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/Changes (original)
+++ branches/upstream/libxml-rss-perl/current/Changes Wed Dec 9 20:04:34 2009
@@ -1,4 +1,8 @@
Revision history for Perl module XML::RSS
+
+1.47 - December 8, 2009
+ - Made sure XML::RSS::save() can do its thing when in taint mode:
+ - http://rt.cpan.org/Public/Bug/Display.html?id=52334
1.46 - October 8, 2009
- Updated the E-mail address of Adam Trickett.
Modified: branches/upstream/libxml-rss-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/MANIFEST?rev=48497&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/MANIFEST (original)
+++ branches/upstream/libxml-rss-perl/current/MANIFEST Wed Dec 9 20:04:34 2009
@@ -78,6 +78,7 @@
t/pod.t
t/render-upon-init.t
t/rss2-gt-encoding.t
+t/save-while-in-taint-mode.t
t/test-generated-items.t
t/test_manifest
t/version.t
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=48497&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/META.yml (original)
+++ branches/upstream/libxml-rss-perl/current/META.yml Wed Dec 9 20:04:34 2009
@@ -1,6 +1,6 @@
---
name: XML-RSS
-version: 1.46
+version: 1.47
author:
- 'Shlomi Fish <shlomif at cpan.org>'
abstract: creates and updates RSS files
@@ -24,7 +24,7 @@
provides:
XML::RSS:
file: lib/XML/RSS.pm
- version: 1.46
+ version: 1.47
XML::RSS::Private::Output::Base:
file: lib/XML/RSS/Private/Output/Base.pm
XML::RSS::Private::Output::Roles::ImageDims:
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=48497&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/lib/XML/RSS.pm (original)
+++ branches/upstream/libxml-rss-perl/current/lib/XML/RSS.pm Wed Dec 9 20:04:34 2009
@@ -16,7 +16,7 @@
require 5.008;
-$VERSION = '1.46';
+$VERSION = '1.47';
$AUTO_ADD = 0;
@@ -1339,10 +1339,20 @@
return $self->_generic_parse("parsefile", $file_to_parse, $options);
}
+sub _untaint {
+ my $self = shift;
+
+ my $value = shift;
+
+ my ($untainted) = ($value =~ m{(.*)}s);
+
+ return $untainted;
+}
+
sub _get_save_output_mode {
my $self = shift;
- return (">:encoding(" . $self->_encoding() . ")");
+ return (">:encoding(" . $self->_untaint($self->_encoding()) . ")");
}
sub save {
Added: branches/upstream/libxml-rss-perl/current/t/save-while-in-taint-mode.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/t/save-while-in-taint-mode.t?rev=48497&op=file
==============================================================================
--- branches/upstream/libxml-rss-perl/current/t/save-while-in-taint-mode.t (added)
+++ branches/upstream/libxml-rss-perl/current/t/save-while-in-taint-mode.t Wed Dec 9 20:04:34 2009
@@ -1,0 +1,30 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+use XML::RSS;
+
+{
+ my $rss = XML::RSS->new();
+ $rss->parsefile(
+ File::Spec->catfile(
+ File::Spec->curdir(), "t", "data", "2.0", "sf-hs-with-pubDate.rss"
+ )
+ );
+
+ my $target_fn =
+ File::Spec->catfile(
+ File::Spec->curdir(), "t", "data", "2.0", "sf-hs-temp.rss"
+ )
+ ;
+
+ $rss->save($target_fn);
+
+ # TEST
+ ok(scalar(-e $target_fn), "Test that save was successful");
+
+ unlink($target_fn);
+}
Modified: branches/upstream/libxml-rss-perl/current/t/test_manifest
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-perl/current/t/test_manifest?rev=48497&op=diff
==============================================================================
--- branches/upstream/libxml-rss-perl/current/t/test_manifest (original)
+++ branches/upstream/libxml-rss-perl/current/t/test_manifest Wed Dec 9 20:04:34 2009
@@ -32,3 +32,4 @@
add-item-insert-vs-append.t
guid.t
xml-base.t
+save-while-in-taint-mode.t
More information about the Pkg-perl-cvs-commits
mailing list