Make File::Glob more VMS-friendly (Charles Lane)

[p5sagit/p5-mst-13.2.git] / t / lib / charnames.t

diff --git a/t/lib/charnames.t b/t/lib/charnames.t
index b03083e..f4d9577 100644 (file)
--- a/t/lib/charnames.t
+++ b/t/lib/charnames.t
@@ -12,11 +12,11 @@ print "1..5\n";
 
 use charnames ':full';
 
-print "not " unless "Here\N{EXCLAMATION MARK}?" eq 'Here!?';
+print "not " unless "Here\N{EXCLAMATION MARK}?" eq "Here\041?";
 print "ok 1\n";
 
 {
-  no utf8;                     # UTEST can switch it on
+  use bytes;                   # UTEST can switch utf8 on
 
   print "# \$res=$res \$\@='$@'\nnot "
     if $res = eval <<'EOE'