From 37dd12ad74c1ffc77c8a4ae430dcbca5feb11d17 Mon Sep 17 00:00:00 2001
From: Struan Donald <struan@exo.org.uk>
Date: Tue, 20 Mar 2012 16:55:43 +0000
Subject: update cleanup text to deal with alternative spelling

---
 perllib/Utils.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perllib/Utils.pm')

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;
-- 
cgit v1.2.3