releasing version 2.36

[filters.git] / pirate

diff --git a/pirate b/pirate
index d35b1387b27144ac79567a35c3239a7efd69ccfb..33fe86188b76d243fc473f52aa2c1f95d64e1fb1 100755 (executable)
--- a/pirate
+++ b/pirate
@@ -84,8 +84,8 @@ while (@trans_table) {
 
 s/ing\b/in'/g;
 s/ings\b/in's/g;
-s/(\.[ \t])/avast($1,3)/eg;
-s/([!\?][ \t])/avast($1,2)/eg; # Greater chance after exclamation
+s/(\.( |\t|$))/avast($1,3)/eg;
+s/([!\?]( \t|$))/avast($1,2)/eg; # Greater chance after exclamation
 
 sub avast {
        my $stub=shift;