fixed GLX_ token in glew.h bug

git-svn-id: https://glew.svn.sourceforge.net/svnroot/glew/trunk/glew@312 783a27ee-832a-0410-bc00-9f386506c6dd
This commit is contained in:
ikits 2004-12-06 08:14:52 +00:00
parent 6c449294c8
commit 9a294ee851

View File

@ -292,7 +292,7 @@ foreach my $spec (sort @speclist)
$prefix =~ s/^(.+?)(_.+)$/$1/; $prefix =~ s/^(.+?)(_.+)$/$1/;
foreach my $token (sort { hex ${$tokens}{$a} <=> hex ${$tokens}{$b} } keys %{$tokens}) foreach my $token (sort { hex ${$tokens}{$a} <=> hex ${$tokens}{$b} } keys %{$tokens})
{ {
if ($token =~ /^$prefix.*/i) if ($token =~ /^$prefix\_.*/i)
{ {
print EXT "\t" . $token . " " . ${%{$tokens}}{$token} . "\n"; print EXT "\t" . $token . " " . ${%{$tokens}}{$token} . "\n";
} }