Unescaped left braces in regular expressions will be fatal in 5.30.

[perl5.git] / t / uni / cache.t

diff --git a/t/uni/cache.t b/t/uni/cache.t
index 4cd9a48..41ac361 100644 (file)
--- a/t/uni/cache.t
+++ b/t/uni/cache.t
@@ -7,7 +7,7 @@ BEGIN {
 
 plan tests => 1;
 
-# Looks to see if a "do 'unicore/lib/Sc/Hira.pl'" is called more than once, by
+# Looks to see if a "do 'unicore/lib/Scx/Hira.pl'" is called more than once, by
 # putting a compile sub first on the library path;
 # XXX Kludge: requires exact path, which might change, and has deep knowledge
 # of how utf8_heavy.pl works, which might also change.
@@ -15,7 +15,7 @@ plan tests => 1;
 BEGIN { # Make sure catches compile time references
     $::count = 0;
     unshift @INC, sub {
-       $::count++ if $_[1] eq 'unicore/lib/Sc/Hira.pl';
+       $::count++ if $_[1] eq 'unicore/lib/Scx/Hira.pl';
     };
 }