1 files changed, 5 insertions, 0 deletions
diff --git a/lib/locale.t b/lib/locale.t
index b15d297b20..6407a61a55 100644
--- a/lib/locale.t
+++ b/lib/locale.t
@@ -278,6 +278,11 @@ check_taint      $+;
 check_taint      $1;
 check_taint_not  $2;
 
+"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;