Commit 9bca6b44 authored by Nigel Stewart's avatar Nigel Stewart
Browse files

Ungreedy prefix match for function name -> __glew prefixing

parent 5de43d97
......@@ -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;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment