Add a regression test for bug #23765 (by Jarkko)

p4raw-id: //depot/perl@22976

1 files changed, 8 insertions, 1 deletions

diff --git a/t/op/substr.t b/t/op/substr.t
index 08f416553a..9549d29028 100755
--- a/t/op/substr.t
+++ b/t/op/substr.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..189\n";
+print "1..190\n";
 
 #P = start of string  Q = start of substr  R = end of substr  S = end of string
 
@@ -651,3 +651,10 @@ ok 174, $x eq "\x{100}\x{200}\xFFb";
     ok 189, substr($text,$pos,1) eq $pos;
 
 }
+
+# [perl #23765]
+{
+    my $a = pack("C", 0xbf);
+    substr($a, -1) &= chr(0xfeff);
+    ok 190, $a eq "\xbf";
+}