locale.t: Add test

This makes sure that taint isn't being added unnecessarily

diff --git a/lib/locale.t b/lib/locale.t
index e75087f..6d491e4 100644 (file)
--- a/lib/locale.t
+++ b/lib/locale.t
@@ -101,6 +101,10 @@ sub check_taint_not ($;$) {
     ok((not is_tainted($_[0])), "verify that isn't tainted$message_tail");
 }
 
+"\tb\t" =~ /^m?(\s)(.*)\1$/;
+check_taint_not   $&, "not tainted outside 'use locale'";
+;
+
 use locale;    # engage locale and therefore locale taint.
 
 check_taint_not   $a;