From: Tim Pope <code@tpope.net>
Date: Wed, 11 Aug 2004 00:56:22 +0000 (+0000)
Subject: Slight capitalization tweaks
X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=commitdiff_plain;h=02cd3de48c08ae6f5d49caf24c1da5a2cd219d9a

Slight capitalization tweaks
---

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;