wee
git-svn-id: file:///home/svn/incoming/trunk@2687 4d416f70-5f16-0410-b530-b9f4589650da
This commit is contained in:
parent
1bdddc4c31
commit
5777ef8730
|
@ -18,6 +18,10 @@ while(<STDIN>) {
|
|||
sub old_to_new {
|
||||
my $name = shift;
|
||||
|
||||
if(uc($name) eq $name) {
|
||||
return(lc($name));
|
||||
}
|
||||
|
||||
$name =~ s/^([A-Z])/lc($1)/ge;
|
||||
$name =~ s/([A-Z])/"_" . lc($1)/ge;
|
||||
|
||||
|
|
Loading…
Reference in New Issue