mirror of
https://github.com/Perlmint/glew-cmake.git
synced 2024-11-26 16:41:57 +00:00
fix registry parsing
git-svn-id: https://glew.svn.sourceforge.net/svnroot/glew/trunk/glew@515 783a27ee-832a-0410-bc00-9f386506c6dd
This commit is contained in:
parent
52d585fcba
commit
42fc0825c2
@ -266,7 +266,8 @@ my @speclist = ();
|
||||
my %extensions = ();
|
||||
|
||||
my $ext_dir = shift;
|
||||
my $reg_http = "http://oss.sgi.com/projects/ogl-sample/";
|
||||
my $reg_http = "http://www.opengl.org/registry/specs/";
|
||||
#my $reg_http = "http://oss.sgi.com/projects/ogl-sample/";
|
||||
|
||||
# Take command line arguments or read list from file
|
||||
if (@ARGV)
|
||||
@ -286,7 +287,9 @@ foreach my $spec (sort @speclist)
|
||||
my $info = "$ext_dir/" . $ext;
|
||||
open EXT, ">$info";
|
||||
print EXT $ext . "\n";
|
||||
print EXT $reg_http . $spec . "\n";
|
||||
my $specname = $spec;
|
||||
$specname =~ s/registry\///;
|
||||
print EXT $reg_http . $specname . "\n";
|
||||
|
||||
my $prefix = $ext;
|
||||
$prefix =~ s/^(.+?)(_.+)$/$1/;
|
||||
|
Loading…
Reference in New Issue
Block a user