r48499 - in /trunk/libxml-rss-perl: Changes MANIFEST META.yml debian/changelog 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:15:52 UTC 2009
Author: jawnsy-guest
Date: Wed Dec 9 20:15:46 2009
New Revision: 48499
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=48499
Log:
New upstream release
Added:
trunk/libxml-rss-perl/t/save-while-in-taint-mode.t
- copied unchanged from r48498, branches/upstream/libxml-rss-perl/current/t/save-while-in-taint-mode.t
Modified:
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/lib/XML/RSS.pm
trunk/libxml-rss-perl/t/test_manifest
Modified: trunk/libxml-rss-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-perl/Changes?rev=48499&op=diff
==============================================================================
--- trunk/libxml-rss-perl/Changes (original)
+++ trunk/libxml-rss-perl/Changes Wed Dec 9 20:15:46 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: trunk/libxml-rss-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-perl/MANIFEST?rev=48499&op=diff
==============================================================================
--- trunk/libxml-rss-perl/MANIFEST (original)
+++ trunk/libxml-rss-perl/MANIFEST Wed Dec 9 20:15:46 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: trunk/libxml-rss-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-perl/META.yml?rev=48499&op=diff
==============================================================================
--- trunk/libxml-rss-perl/META.yml (original)
+++ trunk/libxml-rss-perl/META.yml Wed Dec 9 20:15:46 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: trunk/libxml-rss-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-perl/debian/changelog?rev=48499&op=diff
==============================================================================
--- trunk/libxml-rss-perl/debian/changelog (original)
+++ trunk/libxml-rss-perl/debian/changelog Wed Dec 9 20:15:46 2009
@@ -1,3 +1,9 @@
+libxml-rss-perl (1.47-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org> Wed, 09 Dec 2009 11:58:35 -0500
+
libxml-rss-perl (1.46-1) unstable; urgency=low
[ Jonathan Yu ]
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=48499&op=diff
==============================================================================
--- trunk/libxml-rss-perl/lib/XML/RSS.pm (original)
+++ trunk/libxml-rss-perl/lib/XML/RSS.pm Wed Dec 9 20:15:46 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 {
Modified: trunk/libxml-rss-perl/t/test_manifest
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-perl/t/test_manifest?rev=48499&op=diff
==============================================================================
--- trunk/libxml-rss-perl/t/test_manifest (original)
+++ trunk/libxml-rss-perl/t/test_manifest Wed Dec 9 20:15:46 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