This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
evalbytes should ignore outer utf8 declaration
[perl5.git] / t / op / evalbytes.t
index 4a60614..5a03e63 100644 (file)
@@ -19,7 +19,7 @@ use feature 'evalbytes', 'unicode_eval';
 
 is evalbytes("1+7"), 8, 'evalbytes basic sanity check';
 
-my $code = 'qq(\xff\xfe)';
+my $code = qq('\xff\xfe');
 is evalbytes($code), "\xff\xfe", 'evalbytes on extra-ASCII bytes';
 chop((my $upcode = $code) .= chr 256);
 is evalbytes($upcode), "\xff\xfe", 'evalbytes on upgraded extra-ASCII';