diff options
author | Yigit Sever | 2023-05-21 21:35:23 +0300 |
---|---|---|
committer | Yigit Sever | 2023-05-21 21:35:23 +0300 |
commit | ea02d95c0153bff9912231775e985c1520d83f61 (patch) | |
tree | b0bce6948b9d3007ad07333a5e5f9588d738d04f /.local/bin | |
parent | 0c4fb218f0d7617d3d48a436436cfe4077d6926f (diff) | |
download | dotfiles-ea02d95c0153bff9912231775e985c1520d83f61.tar.gz dotfiles-ea02d95c0153bff9912231775e985c1520d83f61.tar.bz2 dotfiles-ea02d95c0153bff9912231775e985c1520d83f61.zip |
sentences: don't split at ;
Diffstat (limited to '.local/bin')
-rwxr-xr-x | .local/bin/sentences | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/.local/bin/sentences b/.local/bin/sentences index 3626728..cd90380 100755 --- a/.local/bin/sentences +++ b/.local/bin/sentences | |||
@@ -2,7 +2,7 @@ | |||
2 | 2 | ||
3 | use strict; | 3 | use strict; |
4 | 4 | ||
5 | my $pont = qr{[.!?;]+}; ## punctuation | 5 | my $pont = qr{[.!?]+}; ## punctuation |
6 | my $abrev = qr{\b(?:Pr|Dr|Mr|[A-Z]|i\.e|e\.g|et al|etc)\.}; ## abbreviations | 6 | my $abrev = qr{\b(?:Pr|Dr|Mr|[A-Z]|i\.e|e\.g|et al|etc)\.}; ## abbreviations |
7 | my $header = qr{(=+ .*? =+)}; | 7 | my $header = qr{(=+ .*? =+)}; |
8 | 8 | ||