Committed by =?UTF-8?q?Dagfinn=20Ilmari=20Manns=C3=A5ker?= <[email protected]>

Subject: [DBD::Pg 1/2] Explicitly specify en_US for spell checking

---
 t/99_spellcheck.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/99_spellcheck.t b/t/99_spellcheck.t
index f4a7d14..e1b86cb 100644
--- a/t/99_spellcheck.t
+++ b/t/99_spellcheck.t
@@ -39,7 +39,7 @@ while (<DATA>) {
 
 sub spellcheck {
        my ($desc, $text, $filename) = @_;
-       my $check = Text::SpellChecker->new(text => $text);
+       my $check = Text::SpellChecker->new(text => $text, lang => 'en_US');
        my %badword;
        while (my $word = $check->next_word) {
                next if $okword{Common}{$word} or $okword{$filename}{$word};
-- 
1.8.4

Reply via email to