[svn:perlfaq] r6575 - perlfaq/trunk

[email protected] Wed, 28 Jun 2006 10:50:18 -0700 (PDT)

Newsgroups	perl.cvs.perlfaq
Message-ID	<[email protected]>

Author: comdog
Date: Wed Jun 28 10:50:17 2006
New Revision: 6575

Modified:
   perlfaq/trunk/perlfaq4.pod

Log:
* How Do I Capitalize All The Words In A Sentence?
	+ fixed missing s from s///


Modified: perlfaq/trunk/perlfaq4.pod
==============================================================================
--- perlfaq/trunk/perlfaq4.pod	(original)
+++ perlfaq/trunk/perlfaq4.pod	Wed Jun 28 10:50:17 2006
@@ -796,7 +796,7 @@
 				   )
 				/\U$1/xg;
 
-	$string =~ /([\w']+)/\u\L$1/g;
+	$string =~ s/([\w']+)/\u\L$1/g;
 
 To make the whole line upper case: