Slight capitalization tweaks

[tpope-extra.git] / perl / sctweb

diff --git a/perl/sctweb b/perl/sctweb
index e0c8d2896ec4a914b5619dd885ed855dae27649a..878bcd7aed7c433f0576b8f69cda9dec431991ea 100755 (executable)
--- 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;