From a6aa5b8f5f0af4f3224c3d689595fd9e6979abbd Mon Sep 17 00:00:00 2001
From: Packit Service <user-cont-team+packit-service@redhat.com>
Date: Dec 10 2020 02:00:06 +0000
Subject: Apply patch IPC-System-Simple-1.25-Use-exucatable-name-as-a-source-of-taintedness.patch


patch_name: IPC-System-Simple-1.25-Use-exucatable-name-as-a-source-of-taintedness.patch
present_in_specfile: true

---

diff --git a/t/07_taint.t b/t/07_taint.t
index 49cee12..be449cd 100644
--- a/t/07_taint.t
+++ b/t/07_taint.t
@@ -17,8 +17,8 @@ use_ok("IPC::System::Simple","run","capture");
 
 chdir("t");     # Ignore return, since we may already be in t/
 
-my $taint = $ENV{(keys(%ENV))[0]} . "foo";	# ."foo" to avoid zero length
-ok(tainted($taint),"Sanity - ENV vars are tainted");
+my $taint = $0 . "foo";	# ."foo" to avoid zero length
+ok(tainted($taint),"Sanity - executable name is tainted");
 
 my $evil_zero = 1 - (length($taint) / length($taint));