diff options
author | Dylan William Hardison <dylan@hardison.net> | 2018-05-21 20:14:53 +0200 |
---|---|---|
committer | Dylan William Hardison <dylan@hardison.net> | 2018-06-28 22:41:56 +0200 |
commit | 3d8dc32afa0131e2ac0cd121b492aed8ad59fc11 (patch) | |
tree | 2d3489acbaa726ff7daaee0758c2bbd50c8fe13a /Bugzilla/WebService | |
parent | 15661bf793105352c3cf0d84d6c7e790be838a78 (diff) | |
download | bugzilla-3d8dc32afa0131e2ac0cd121b492aed8ad59fc11.tar.gz bugzilla-3d8dc32afa0131e2ac0cd121b492aed8ad59fc11.tar.xz |
working more
Diffstat (limited to 'Bugzilla/WebService')
-rw-r--r-- | Bugzilla/WebService/Util.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Bugzilla/WebService/Util.pm b/Bugzilla/WebService/Util.pm index 29ff05448..d462c884a 100644 --- a/Bugzilla/WebService/Util.pm +++ b/Bugzilla/WebService/Util.pm @@ -23,7 +23,7 @@ use base qw(Exporter); # We have to "require", not "use" this, because otherwise it tries to # use features of Test::More during import(). -require Test::Taint; +require Test::Taint if ${^TAINT}; our @EXPORT_OK = qw( extract_flags @@ -193,8 +193,10 @@ sub taint_data { # Though this is a private function, it hasn't changed since 2004 and # should be safe to use, and prevents us from having to write it ourselves # or require another module to do it. - Test::Taint::_deeply_traverse(\&_delete_bad_keys, \@params); - Test::Taint::taint_deeply(\@params); + if (${^TAINT}) { + Test::Taint::_deeply_traverse(\&_delete_bad_keys, \@params); + Test::Taint::taint_deeply(\@params); + } } sub _delete_bad_keys { |