|
 |
40d9e8 |
From ff8028c4d95425faa5b0705b8ed8c84b1112c7e4 Mon Sep 17 00:00:00 2001
|
|
|
40d9e8 |
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
|
|
|
40d9e8 |
Date: Wed, 2 Aug 2017 17:29:13 +0200
|
|
|
40d9e8 |
Subject: [PATCH] Use exucatable name as a source of taintedness
|
|
|
40d9e8 |
MIME-Version: 1.0
|
|
|
40d9e8 |
Content-Type: text/plain; charset=UTF-8
|
|
|
40d9e8 |
Content-Transfer-Encoding: 8bit
|
|
|
40d9e8 |
|
|
|
40d9e8 |
Test::Simple >= 1.302065 injects variables into the environment. These
|
|
|
40d9e8 |
are not tainted and caused a random t/07_taint.t test failures.
|
|
|
40d9e8 |
|
|
|
40d9e8 |
This patch fixes it by using executable name $0 instead.
|
|
|
40d9e8 |
|
|
|
40d9e8 |
https://github.com/pjf/ipc-system-simple/issues/21
|
|
|
40d9e8 |
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
|
40d9e8 |
---
|
|
|
40d9e8 |
t/07_taint.t | 4 ++--
|
|
|
40d9e8 |
1 file changed, 2 insertions(+), 2 deletions(-)
|
|
|
40d9e8 |
|
|
|
40d9e8 |
diff --git a/t/07_taint.t b/t/07_taint.t
|
|
|
40d9e8 |
index 49cee12..be449cd 100644
|
|
|
40d9e8 |
--- a/t/07_taint.t
|
|
|
40d9e8 |
+++ b/t/07_taint.t
|
|
|
40d9e8 |
@@ -17,8 +17,8 @@ use_ok("IPC::System::Simple","run","capture");
|
|
|
40d9e8 |
|
|
|
40d9e8 |
chdir("t"); # Ignore return, since we may already be in t/
|
|
|
40d9e8 |
|
|
|
40d9e8 |
-my $taint = $ENV{(keys(%ENV))[0]} . "foo"; # ."foo" to avoid zero length
|
|
|
40d9e8 |
-ok(tainted($taint),"Sanity - ENV vars are tainted");
|
|
|
40d9e8 |
+my $taint = $0 . "foo"; # ."foo" to avoid zero length
|
|
|
40d9e8 |
+ok(tainted($taint),"Sanity - executable name is tainted");
|
|
|
40d9e8 |
|
|
|
40d9e8 |
my $evil_zero = 1 - (length($taint) / length($taint));
|
|
|
40d9e8 |
|
|
|
40d9e8 |
--
|
|
|
40d9e8 |
2.9.4
|
|
|
40d9e8 |
|