diff options
| author | Struan Donald <struan@exo.org.uk> | 2012-03-20 16:55:43 +0000 |
|---|---|---|
| committer | Struan Donald <struan@exo.org.uk> | 2012-03-20 16:55:43 +0000 |
| commit | 37dd12ad74c1ffc77c8a4ae430dcbca5feb11d17 (patch) | |
| tree | 77770e6b6e886e21fbe3e173f2881b320e5624ad /perllib/Utils.pm | |
| parent | 257d609b986b5f70282c68b75858cc5f2323a400 (diff) | |
update cleanup text to deal with alternative spelling
Diffstat (limited to 'perllib/Utils.pm')
| -rw-r--r-- | perllib/Utils.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perllib/Utils.pm b/perllib/Utils.pm index 954561a08..4e64836c6 100644 --- a/perllib/Utils.pm +++ b/perllib/Utils.pm @@ -190,7 +190,7 @@ sub cleanup_text { for ($input) { # shit -> poo - s{\bdog\s*shit\b}{dog poo}ig; + s{\bdog\s*shite*?\b}{dog poo}ig; # 'portakabin' to '[portable cabin]' (and variations) s{\b(porta)\s*([ck]abin|loo)\b}{[$1ble $2]}ig; |