diff options
| author | Karl Williamson <public@khwilliamson.com> | 2014-02-18 11:45:48 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2014-02-19 14:31:38 -0700 |
| commit | 9486279ceb5a3e105081b7470810dca288230535 (patch) | |
| tree | 56aa69a274d6e2f0c2aeeab4ceb8f3dfbe979240 | |
| parent | ee1ec05fa88c0444e7d8e506b018b9b80be61dd0 (diff) | |
| download | perl-9486279ceb5a3e105081b7470810dca288230535.tar.gz | |
lib/locale.t: Untaint before checking if next thing taints
The tests weren't testing what they purported to, as we should be sure
to start with untained values to see if the operation taints.
| -rw-r--r-- | lib/locale.t | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lib/locale.t b/lib/locale.t index b195394196..1dce940abf 100644 --- a/lib/locale.t +++ b/lib/locale.t @@ -159,6 +159,14 @@ check_taint $+; check_taint $1; check_taint_not $2; +/(.)/; # untaint $&, $`, $', $+, $1. +check_taint_not $&, '/(.)/'; +check_taint_not $`; +check_taint_not $'; +check_taint_not $+; +check_taint_not $1; +check_taint_not $2; + /(\s)/; # taint $&, $`, $', $+, $1. check_taint $&; check_taint $`; @@ -167,6 +175,9 @@ check_taint $+; check_taint $1; check_taint_not $2; +/(.)/; # untaint $&, $`, $', $+, $1. +check_taint_not $&, '/(.)/'; + /(\S)/; # taint $&, $`, $', $+, $1. check_taint $&; check_taint $`; |