re/pat_advanced.t: Tighten test

This adds anchors to a pattern.  I discovered while changing things that
it still passed when broken

diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t
index fa324fd..3eaad63 100644 (file)
--- a/t/re/pat_advanced.t
+++ b/t/re/pat_advanced.t
@@ -995,7 +995,7 @@ sub run_tests {
         #
         my $w;
         local $SIG {__WARN__} = sub {$w .= "@_"};
-        $result = eval 'q(WARN) =~ /[\N{WARN}]/';
+        $result = eval 'q(WARN) =~ /^[\N{WARN}]$/';
         ok !$@ && $result && ! $w,  '\N{} returning multi-char works';
 
         undef $w;