[libtest-version-perl] 01/03: patch File::Find::Rule invocation adding untaint=>1

[Damyan Ivanov]

This is an automated email from the git hooks/post-receive script.

dmn pushed a commit to branch master
in repository libtest-version-perl.

commit 90e80e8758687cf0ea7194f0a61776528b990fd4
Author: Damyan Ivanov <dmn at debian.org>
Date:   Sun Nov 12 10:22:14 2017 +0000

    patch File::Find::Rule invocation adding untaint=>1
    
    otherwise File::Find's chdir fails in taint mode
    Closes: #881451
---
 debian/patches/series             |  1 +
 debian/patches/untaint-find.patch | 19 +++++++++++++++++++
 2 files changed, 20 insertions(+)

diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..f17a2a5
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+untaint-find.patch
diff --git a/debian/patches/untaint-find.patch b/debian/patches/untaint-find.patch
new file mode 100644
index 0000000..57fc865
--- /dev/null
+++ b/debian/patches/untaint-find.patch
@@ -0,0 +1,19 @@
+Description: File::Find failure in taint mode
+ When the test is run with the -T flag, File::Find will fail when attempting to
+ chdir. It needs the "untaint" flag passed to avoid this.
+Bug-Debian: https://bugs.debian.org/881451
+Forwarded: https://github.com/plicease/Test-Version/pull/8
+Bug: https://github.com/plicease/Test-Version/pull/8
+
+--- a/lib/Test/Version.pm
++++ b/lib/Test/Version.pm
+@@ -211,7 +211,8 @@ sub version_all_ok {
+ 
+   $name ||= "all modules in $dir have valid versions";
+ 
+-  my @files = File::Find::Rule->perl_module->in( $dir );
++  my @files =
++    File::Find::Rule->perl_module->extras( { untaint => 1 } )->in($dir);
+ 
+   {
+     local $_IN_VERSION_ALL_OK = 1;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libtest-version-perl.git