mirror of
https://github.com/Perlmint/glew-cmake.git
synced 2024-11-13 10:33:48 +00:00
Ungreedy prefix match for function name -> __glew prefixing
This commit is contained in:
parent
5de43d97fc
commit
9bca6b44ea
@ -19,7 +19,7 @@ my %regex = (
|
|||||||
sub prefixname($)
|
sub prefixname($)
|
||||||
{
|
{
|
||||||
my $name = $_[0];
|
my $name = $_[0];
|
||||||
$name =~ s/^(.*)gl/__$1glew/;
|
$name =~ s/^(.*?)gl/__$1glew/;
|
||||||
return $name;
|
return $name;
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -27,7 +27,7 @@ sub prefixname($)
|
|||||||
sub prefix_varname($)
|
sub prefix_varname($)
|
||||||
{
|
{
|
||||||
my $name = $_[0];
|
my $name = $_[0];
|
||||||
$name =~ s/^(.*)GL(X*)EW/__$1GL$2EW/;
|
$name =~ s/^(.*?)GL(X*?)EW/__$1GL$2EW/;
|
||||||
return $name;
|
return $name;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user