|
 |
6e8597 |
From ce0f976bb88b5828373b1579cc2a0d95a8e9f664 Mon Sep 17 00:00:00 2001
|
|
|
6e8597 |
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
|
|
|
6e8597 |
Date: Mon, 28 Apr 2014 11:05:41 +0200
|
|
|
6e8597 |
Subject: [PATCH] Do not warn on tainted test without PERL5LIB enviroment
|
|
|
6e8597 |
variable
|
|
|
6e8597 |
MIME-Version: 1.0
|
|
|
6e8597 |
Content-Type: text/plain; charset=UTF-8
|
|
|
6e8597 |
Content-Transfer-Encoding: 8bit
|
|
|
6e8597 |
|
|
|
6e8597 |
This fix is ported from upstream commit:
|
|
|
6e8597 |
|
|
|
6e8597 |
commit 0a9d31df86597d1480df81c97b688f90d4fe63ba
|
|
|
6e8597 |
Author: Leon Timmermans <fawaka@gmail.com>
|
|
|
6e8597 |
Date: Sun Jul 28 21:05:57 2013 +0200
|
|
|
6e8597 |
|
|
|
6e8597 |
Added use warnings to all modules
|
|
|
6e8597 |
|
|
|
6e8597 |
<https://rt.cpan.org/Public/Bug/Display.html?id=85106>
|
|
|
6e8597 |
|
|
|
6e8597 |
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
|
6e8597 |
---
|
|
|
6e8597 |
lib/TAP/Parser/SourceHandler/Perl.pm | 2 +-
|
|
|
6e8597 |
1 file changed, 1 insertion(+), 1 deletion(-)
|
|
|
6e8597 |
|
|
|
6e8597 |
diff --git a/lib/TAP/Parser/SourceHandler/Perl.pm b/lib/TAP/Parser/SourceHandler/Perl.pm
|
|
|
6e8597 |
index 9257f6a..46ee1fc 100644
|
|
|
6e8597 |
--- a/lib/TAP/Parser/SourceHandler/Perl.pm
|
|
|
6e8597 |
+++ b/lib/TAP/Parser/SourceHandler/Perl.pm
|
|
|
6e8597 |
@@ -167,7 +167,7 @@ sub _mangle_switches {
|
|
|
6e8597 |
# PERL5LIB as -I switches and place PERL5OPT on the command line
|
|
|
6e8597 |
# in order that it be seen.
|
|
|
6e8597 |
if ( $class->_has_taint_switch($switches) ) {
|
|
|
6e8597 |
- my @perl5lib = split /$Config{path_sep}/, $ENV{PERL5LIB};
|
|
|
6e8597 |
+ my @perl5lib = defined $ENV{PERL5LIB} ? split /$Config{path_sep}/, $ENV{PERL5LIB} : ();
|
|
|
6e8597 |
return (
|
|
|
6e8597 |
$libs,
|
|
|
6e8597 |
[ @{$switches},
|
|
|
6e8597 |
--
|
|
|
6e8597 |
1.9.0
|
|
|
6e8597 |
|