1#!./perl 2 3# Check if eval correctly ignores the UTF-8 hint. 4 5BEGIN { 6 chdir 't' if -d 't'; 7 require './test.pl'; 8} 9 10plan (tests => 5); 11 12use open qw( :utf8 :std ); 13use feature 'unicode_eval'; 14 15{ 16 my $w; 17 $SIG{__WARN__} = sub { $w = shift }; 18 use utf8; 19 my $prog = "qq!\x{f9}!"; 20 21 eval $prog; 22 ok !$w; 23 24 $w = ""; 25 utf8::upgrade($prog); 26 eval $prog; 27 is $w, ''; 28} 29 30{ 31 use utf8; 32 isnt eval "q!\360\237\220\252!", eval "q!\x{1f42a}!"; 33} 34 35{ 36 no utf8; #Let's make real sure. 37 my $not_utf8 = "q!\343\203\213!"; 38 isnt eval $not_utf8, eval "q!\x{30cb}!"; 39 { 40 use utf8; 41 isnt eval $not_utf8, eval "q!\x{30cb}!"; 42 } 43} 44