Bump File::Copy to version 2.29.

[perl5.git] / lib / locale.t

diff --git a/lib/locale.t b/lib/locale.t
index 6407a61..f78d0c8 100644 (file)
--- a/lib/locale.t
+++ b/lib/locale.t
@@ -278,14 +278,16 @@ check_taint      $+;
 check_taint      $1;
 check_taint_not  $2;
 
+# After all this tainting $a should be cool.
+
+check_taint_not  $a;
+
 "a" =~ /([a-z])/;
 check_taint_not $1, '"a" =~ /([a-z])/';
 "foo.bar_baz" =~ /^(.*)[._](.*?)$/;  # Bug 120675
 check_taint_not $1, '"foo.bar_baz" =~ /^(.*)[._](.*?)$/';
 
-# After all this tainting $a should be cool.
-
-check_taint_not  $a;
+# BE SURE TO COPY ANYTHING YOU ADD to the block below
 
 {   # This is just the previous tests copied here with a different
     # compile-time pragma.
@@ -449,6 +451,11 @@ check_taint_not  $a;
     # After all this tainting $a should be cool.
 
     check_taint_not  $a;
+
+    "a" =~ /([a-z])/;
+    check_taint_not $1, '"a" =~ /([a-z])/';
+    "foo.bar_baz" =~ /^(.*)[._](.*?)$/;  # Bug 120675
+    check_taint_not $1, '"foo.bar_baz" =~ /^(.*)[._](.*?)$/';
 }
 
 # Here are in scope of 'use locale'