subst.t: Test something I nearly broke

[perl5.git] / t / re / subst.t

diff --git a/t/re/subst.t b/t/re/subst.t
index b139812..8acd54f 100644 (file)
--- a/t/re/subst.t
+++ b/t/re/subst.t
@@ -7,7 +7,7 @@ BEGIN {
     require './test.pl';
 }
 
     require './test.pl';
 }
 

-plan( tests => 205 );
+plan( tests => 206 );

 
 $_ = 'david';
 $a = s/david/rules/r;
 
 $_ = 'david';
 $a = s/david/rules/r;


@@ -881,3 +881,8 @@ $a = "";
 utf8::upgrade $a;
 $_ =~ s/$/$a/;
 is $_, "\xc4\x80", "empty utf8 repl does not result in mangled utf8";
 utf8::upgrade $a;
 $_ =~ s/$/$a/;
 is $_, "\xc4\x80", "empty utf8 repl does not result in mangled utf8";

+
+$@ = "\x{30cb}eval 18";
+$@ =~ s/eval \d+/eval 11/;
+is $@, "\x{30cb}eval 11",
+  'loading utf8 tables does not interfere with matches against $@';