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.

diff --git a/lib/locale.t b/lib/locale.t
index b195394..1dce940 100644 (file)
--- 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      $`;