git-svn-id: file:///home/svn/incoming/trunk@2687 4d416f70-5f16-0410-b530-b9f4589650da
This commit is contained in:
Spoon M 2005-07-09 21:03:24 +00:00
parent 1bdddc4c31
commit 5777ef8730
1 changed files with 4 additions and 0 deletions

View File

@ -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;