diff options
author | Chase Whitener <cwhitener@gmail.com> | 2023-05-02 20:56:49 -0400 |
---|---|---|
committer | Olaf Alders <olaf@wundersolutions.com> | 2023-05-03 06:29:40 -0400 |
commit | 847191e6fe4ca67ca7462a22a0c5fb6768d3b1ba (patch) | |
tree | 80353db4654be58dc81311e0db3b153abc4a1809 | |
parent | 538f054b030ca206aa6c934e5415d79b01a0f801 (diff) | |
download | uri-847191e6fe4ca67ca7462a22a0c5fb6768d3b1ba.tar.gz |
Remove use of Taint in tests.
Also, ensure all tests files do not include the shebang.
t/query.t had a join() over an array with undef values; fix that.
-rw-r--r-- | t/cwd.t | 2 | ||||
-rw-r--r-- | t/file.t | 2 | ||||
-rw-r--r-- | t/ipv6.t | 2 | ||||
-rw-r--r-- | t/query.t | 2 |
4 files changed, 1 insertions, 7 deletions
@@ -1,5 +1,3 @@ -#!perl -T - use strict; use warnings; @@ -1,5 +1,3 @@ -#!perl -T - use strict; use warnings; @@ -1,5 +1,3 @@ -#!perl - use strict; use warnings; @@ -82,7 +82,7 @@ is $u, "?a=1;b=2"; $u->query('a&b=2'); @q = $u->query_form; -is join(":", @q), "a::b:2"; +is join(":", map { defined ? $_ : '' } @q), "a::b:2"; ok !defined($q[1]); $u->query_form(@q); |