regcomp.c: Rename a variable

[perl5.git] / t / op / chr.t

diff --git a/t/op/chr.t b/t/op/chr.t
index 5f57bad..e0a51eb 100644 (file)
--- a/t/op/chr.t
+++ b/t/op/chr.t
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib); # ../lib needed for test.deparse
     require "./test.pl";
+    set_up_inc(qw(. ../lib)); # ../lib needed for test.deparse
 }
 
 plan tests => 45;
@@ -49,7 +49,7 @@ is chr "-2.2", chr -2.2, 'chr "-2.2" eq chr -2.2';
 
 # Check UTF-8 (not UTF-EBCDIC).
 SKIP: {
-    skip "ASCII centric tests", 21 if $::IS_EBCDIC;
+    skip "UTF-8 ASCII centric tests", 21 if $::IS_EBCDIC;
     # Too hard to convert these tests generically to EBCDIC code pages without
     # using chr(), which is what we're testing.