From 02cd3de48c08ae6f5d49caf24c1da5a2cd219d9a Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Wed, 11 Aug 2004 00:56:22 +0000
Subject: [PATCH] Slight capitalization tweaks

---
 perl/sctweb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/sctweb b/perl/sctweb
index e0c8d28..878bcd7 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -40,7 +40,7 @@ sub capitalize {
     s/\b([A-Z])([A-Z]*)\b/$1\L$2/g;
     s/\b(I)(i*)\b/$1\U$2/g;
     s/\bUs\b/US/g;
-    s/ (Of|For|The|To|And|Or) / \l$1 /g;
+    s/ (And|For|Of|Or|The|To|With) / \l$1 /g;
     s/\b(Ma?c)([a-z])/$1\u$2/g;
     s/\b(Tcp\/Ip|Pc)\b/\U$&/g;
     s/\bThru\b/Through/g;
-- 
2.30.2