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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
use strict;
use warnings;
use Test::More;
eval "use Test::Spelling";
plan skip_all => "Test::Spelling required for testing POD coverage"
if $@;
my @stopwords;
for (<DATA>) {
chomp;
push @stopwords, $_
unless /\A (?: \# | \s* \z)/msx; # skip comments, whitespace
}
add_stopwords(@stopwords);
set_spell_cmd('aspell list -l en');
# This prevents a weird segfault from the aspell command - see
# https://bugs.launchpad.net/ubuntu/+source/aspell/+bug/71322
local $ENV{LC_ALL} = 'C';
all_pod_files_spelling_ok();
__DATA__
PayPal
Rata
Storable
UIs
UTC
datetime
pre
versa
FromEnv
env
AE
AO
AQ
BD
BG
BH
BJ
BN
BT
BW
BZ
Barthelemy
Bolivarian
Burkina
CN
CX
Caicos
DK
DM
Darussalam
EE
EG
FI
FJ
FK
FO
Faroe
Faso
Futuna
GF
GG
GH
GL
GN
GQ
GW
GY
HK
HN
HU
Hong
IM
JE
JM
Jamahiriya
KE
KH
KZ
Kitts
LK
LV
Lanka
Leste
MF
MH
MQ
MX
MZ
Malvinas
Marino
Mayen
Mayotte
Miquelon
NG
NL
Niue
PN
PY
Palau
Papua
Plurinational
Puerto
QA
RO
RW
SG
SL
SV
SY
SZ
Sao
Sri
TF
TG
TJ
TK
TT
TW
TZ
Timor
Tokelau
UA
UG
UY
UZ
VC
VE
VN
VU
Viet
WF
WS
ZA
ZM
ZW
Zealand
d'Ivoire
TZ
VMS
Millenium
XP
|
