Lines Matching refs:chr
63 # The chr 256 is a hack to force the hash to always have the utf8 keys flag
67 my %hash = (perl => 'rules', chr 256, '');
68 delete $hash{chr 256};
180 substr ($copy, $file_magic + 1, 1) = chr $minor4;
195 substr ($copy, $file_magic, 1) = chr 2*$major1;
202 substr ($copy, $file_magic + 1, 1) = chr $minor1;
224 substr ($copy, $where++, 1) = chr 0;
234 $copy = substr ($contents, 0, $where) . chr 255;
241 substr ($copy, $file_magic + 1, 1) = chr $minor1;
247 substr ($copy, $file_magic + 1, 1) = chr $minor4;
331 chop(my $a = chr(0xDF).chr(256));
332 my %a = (chr(0xDF) => 1);