Return to makeauthors.pl CVS log | Up to [Local Repository] / db / prgsrc |
version 1.4, 2003/01/09 13:41:46 | version 1.5, 2003/02/02 21:01:11 |
---|---|
Line 76 while (<NICKS>) | Line 76 while (<NICKS>) |
$name{$nick}= ucfirst lc $name; | $name{$nick}= ucfirst lc $name; |
$surname=ucfirst lc $surname; | $surname=ucfirst lc $surname; |
$surname=~s/\-(.)/"-". uc $1/ge; | $surname=~s/\-(.)/"-". uc $1/ge; |
$surname=~s/\'(.)/"'". uc $1/ge; | |
$surname{$nick}= $surname; | $surname{$nick}= $surname; |
} | } |