X-Git-Url: http://git.ieval.ro/?p=filters.git;a=blobdiff_plain;f=pirate;h=33fe86188b76d243fc473f52aa2c1f95d64e1fb1;hp=d35b1387b27144ac79567a35c3239a7efd69ccfb;hb=32a7bed8e522a64adae39154ed60380c3af8d1f6;hpb=38562f398d4188bf8e1b19199002e0d9758bb55d diff --git a/pirate b/pirate index d35b138..33fe861 100755 --- 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;