blob: 562f59ae600729f94d96d8e9e2fd48d4a6b8b140 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
package Cname;
our $Evil='A';
sub translator {
my $str = shift;
if ( $str eq 'EVIL' ) {
# Returns A first time, AB second, ABC third ... A-ZA the 27th time.
(my $c=substr("A".$Evil,-1))++;
my $r=$Evil;
$Evil.=$c;
return $r;
}
if ( $str eq 'EMPTY-STR') {
return "";
}
if ( $str eq 'NULL') {
return "\0";
}
if ( $str eq 'LONG-STR') {
return 'A' x 255;
}
# Should exceed limit for regex \N bytes in a sequence. Anyway it will if
# UCHAR_MAX is 255.
if ( $str eq 'TOO-LONG-STR') {
return 'A' x 256;
}
if ($str eq 'MALFORMED') {
$str = "\xDF\xDFabc";
utf8::upgrade($str);
# Create a malformed in first and second characters.
$str =~ s/^\C/A/;
$str =~ s/^(\C\C)\C/$1A/;
}
return $str;
}
sub import {
shift;
$^H{charnames} = \&translator;
}
1;
|
