Ungreedy prefix match for function name -> __glew prefixing

This commit is contained in:
Nigel Stewart 2011-03-27 23:21:43 -05:00
parent 5de43d97fc
commit 9bca6b44ea

View File

@ -19,7 +19,7 @@ my %regex = (
sub prefixname($)
{
my $name = $_[0];
$name =~ s/^(.*)gl/__$1glew/;
$name =~ s/^(.*?)gl/__$1glew/;
return $name;
}
@ -27,7 +27,7 @@ sub prefixname($)
sub prefix_varname($)
{
my $name = $_[0];
$name =~ s/^(.*)GL(X*)EW/__$1GL$2EW/;
$name =~ s/^(.*?)GL(X*?)EW/__$1GL$2EW/;
return $name;
}