xt/release/pod-spell.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::Spelling;
   5
   6 my @stopwords;
   7 for (<DATA>) {
   8     chomp;
   9     push @stopwords, $_
  10         unless /\A (?: \# | \s* \z)/msx;    # skip comments, whitespace
  11 }
  12
  13 add_stopwords(@stopwords);
  14 set_spell_cmd('aspell list -l en');
  15
  16 # This prevents a weird segfault from the aspell command - see
  17 # https://bugs.launchpad.net/ubuntu/+source/aspell/+bug/71322
  18 local $ENV{LC_ALL} = 'C';
  19 all_pod_files_spelling_ok;
  20
  21 __DATA__
  22 Goro
  23 PayPal
  24 Rolsky
  25 api