Lines Matching refs:c80

452 	    my $c80 = chr(0x80);
465 	    my $code1u = $c80 . "\x{100}" . '(??{$x})';
471 	    eval {/^$c80\x{100}$code1$/};
473 	    eval {/^$c80\x{101}$code1u$/};
479 		ok("A$c80\x{100}$x" =~ /^A$code1u$/,
481 		ok("$c80\x{100}B$x" =~ /^$c80\x{100}$code1$/,
483 		ok("$c80\x{101}$c80\x{100}$x" =~ /^$c80\x{101}$code1u$/,
490 	    my $code2u = $c80 . "\x{100}" . '(??{$x})';
496 	    eval {/^$c80\x{100}(??{$x})-$code2$/};
498 	    eval {/^$c80\x{101}(??{$x})-$code2u$/};
505 		ok("A$x-$c80\x{100}$x" =~ /^A(??{$x})-$code2u$/,
507 		ok("$c80\x{100}$x-B$x" =~ /^$c80\x{100}(??{$x})-$code2$/,
509 		ok("$c80\x{101}$x-$c80\x{100}$x"
510 					    =~ /^$c80\x{101}(??{$x})-$code2u$/,