projects
/
tpope-extra.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
97637b6
)
Slight capitalization tweaks
author
Tim Pope
<code@tpope.net>
Wed, 11 Aug 2004 00:56:22 +0000
(
00:56
+0000)
committer
Tim Pope
<code@tpope.net>
Wed, 11 Aug 2004 00:56:22 +0000
(
00:56
+0000)
perl/sctweb
patch
|
blob
|
history
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;