capitalization fix

git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@3344 35c25a1d-7b9e-4130-9fde-d3aeb78583b8

diff --git a/doc/nanorc.sample b/doc/nanorc.sample
index 89bd80e90a03bf7ffc38b94509d1d01236914817..6788829aac3a2501c06724692ae806c4125abae7 100644 (file)
--- a/doc/nanorc.sample
+++ b/doc/nanorc.sample
@@ -263,7 +263,7 @@
 ## Macro arguments
 # color brightcyan "\\\\\$[1-9]"
 
-## Here is an example for perl
+## Here is an example for Perl
 ##
 # syntax "perl" "\.p[lm]$"
 # color red "\<(accept|alarm|atan2|bin(d|mode)|c(aller|h(dir|mod|op|own|root)|lose(dir)?|onnect|os|rypt)|d(bm(close|open)|efined|elete|ie|o|ump)|e(ach|of|val|x(ec|ists|it|p))|f(cntl|ileno|lock|ork))\>" "\<(get(c|login|peername|pgrp|ppid|priority|pwnam|(host|net|proto|serv)byname|pwuid|grgid|(host|net)byaddr|protobynumber|servbyport)|([gs]et|end)(pw|gr|host|net|proto|serv)ent|getsock(name|opt)|gmtime|goto|grep|hex|index|int|ioctl|join)\>" "\<(keys|kill|last|length|link|listen|local(time)?|log|lstat|m|mkdir|msg(ctl|get|snd|rcv)|next|oct|open(dir)?|ord|pack|pipe|pop|printf?|push|q|qq|qx|rand|re(ad(dir|link)?|cv|do|name|quire|set|turn|verse|winddir)|rindex|rmdir|s|scalar|seek(dir)?)\>" "\<(se(lect|mctl|mget|mop|nd|tpgrp|tpriority|tsockopt)|shift|shm(ctl|get|read|write)|shutdown|sin|sleep|socket(pair)?|sort|spli(ce|t)|sprintf|sqrt|srand|stat|study|substr|symlink|sys(call|read|tem|write)|tell(dir)?|time|tr(y)?|truncate|umask)\>" "\<(un(def|link|pack|shift)|utime|values|vec|wait(pid)?|wantarray|warn|write)\>"