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