X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/6d937e95f0584cd22f688adc0df3b4cf1a392fc8..9a375827f28249ed0c6a6c477df0ab4f89df5250:/t/op/goto.t?ds=sidebyside

diff --git a/t/op/goto.t b/t/op/goto.t
index ccee71b..ca48ac0 100644
--- a/t/op/goto.t
+++ b/t/op/goto.t
@@ -5,7 +5,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = qw(. ../lib);
-    require "./test.pl";
+    require "./test.pl"; require './charset_tools.pl';
 }
 
 use warnings;
@@ -473,7 +473,7 @@ is sub {
     goto &returnarg;
 }->("quick and easy"), "ick and queasy",
   'goto &foo with *_{ARRAY} replaced';
-my @__ = "\xc4\x80";
+my @__ = byte_utf8a_to_utf8n("\xc4\x80");
 sub { local *_ = \@__; goto &utf8::decode }->("no thinking aloud");
 is "@__", chr 256, 'goto &xsub with replaced *_{ARRAY}';