diff options
| author | dmgerman <dmg@uvic.ca> | 2015-06-09 00:24:08 -0700 |
|---|---|---|
| committer | dmgerman <dmg@uvic.ca> | 2015-06-09 00:24:08 -0700 |
| commit | ea063ea2b8032383939deabfe55d183dbb35a930 (patch) | |
| tree | 2577b617cab54595f7ce091df8133c0ba3ed9b7b /lib/Ninka/SentenceExtractor.pm | |
| parent | 0147f4736bd1d6d509ee20bedfd79aa893da8d0b (diff) | |
| parent | 794490b0bb279cd2f6d673aecdf68c653a7a9dfd (diff) | |
| download | ninka-fossy.tar.gz | |
Merge pull request #15 from darxriggs/dmgerman/fossyfossy
documentation update & improved project structure
Diffstat (limited to 'lib/Ninka/SentenceExtractor.pm')
| -rw-r--r-- | lib/Ninka/SentenceExtractor.pm | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/lib/Ninka/SentenceExtractor.pm b/lib/Ninka/SentenceExtractor.pm index c27d199..6aeee4e 100644 --- a/lib/Ninka/SentenceExtractor.pm +++ b/lib/Ninka/SentenceExtractor.pm @@ -93,7 +93,7 @@ sub execute { $count2++ if ($c ge 'A' && $c le 'z'); } my $clean_sentence = clean_sentence($sentence); - push @clean_sentences, $clean_sentence if $clean_sentence, + push @clean_sentences, $clean_sentence if $clean_sentence; } if ($count1 != $count2) { @@ -251,6 +251,19 @@ Ninka::SentenceExtractor Breaks comments into sentences. +=head1 NOTES + +This list of abbreviations was extracted from SCOWL (Spell Checker Oriented Word Lists) +by Kevin Atkinson (kevina@gnu.org) version 2015.04.24. + +Specifically it was created from scowl-2015.04.24.tar.gz. by running: + + cat *abbrev* | sort -u > abbreviations.dict + +It also contains some additions by D.M German. + +See Copyright.SCOWL for license. + =head1 COPYRIGHT AND LICENSE Author: Paul Clough |