1 | package CFClient::OpenGL; | 1 | package CFPlus::OpenGL; |
---|---|---|---|
2 | 2 | ||
3 | use strict; | 3 | use strict; |
4 | 4 | ||
5 | use Carp (); | 5 | use Carp (); |
6 | use CFClient; | 6 | use CFPlus; |
7 | 7 | ||
8 | our %GL_EXT; | 8 | our %GL_EXT; |
9 | our $GL_VERSION; | 9 | our $GL_VERSION; |
10 | 10 | ||
11 | our $GL_NPOT; | 11 | our $GL_NPOT; |
… | … | ||
17 | sub import { | 17 | sub import { |
18 | my $caller = caller; | 18 | my $caller = caller; |
19 | 19 | ||
20 | no strict; | 20 | no strict; |
21 | 21 | ||
22 | my $symtab = *{"main::CFClient::OpenGL::"}{HASH}; | 22 | my $symtab = *{"main::CFPlus::OpenGL::"}{HASH}; |
23 | 23 | ||
24 | for (keys %$symtab) { | 24 | for (keys %$symtab) { |
25 | *{"$caller\::$_"} = *$_ | 25 | *{"$caller\::$_"} = *$_ |
26 | if /^(?:gl[A-Z_]|GL_)/; | 26 | if /^(?:gl[A-Z_]|GL_)/; |
27 | } | 27 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |