| 1 | package CFPlus::OpenGL; | 1 | package dc::OpenGL; |
|---|---|---|---|
| 2 | 2 | ||
| 3 | use strict; | 3 | use strict; |
| 4 | 4 | ||
| 5 | use Carp (); | 5 | use Carp (); |
| 6 | use CFPlus; | 6 | use dc; |
| 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; |
| … | … | ||
| 19 | sub import { | 19 | sub import { |
| 20 | my $caller = caller; | 20 | my $caller = caller; |
| 21 | 21 | ||
| 22 | no strict; | 22 | no strict; |
| 23 | 23 | ||
| 24 | my $symtab = *{"main::CFPlus::OpenGL::"}{HASH}; | 24 | my $symtab = *{"main::dc::OpenGL::"}{HASH}; |
| 25 | 25 | ||
| 26 | for (keys %$symtab) { | 26 | for (keys %$symtab) { |
| 27 | *{"$caller\::$_"} = *$_ | 27 | *{"$caller\::$_"} = *$_ |
| 28 | if /^(?:gl[A-Z_]|GL_)/; | 28 | if /^(?:gl[A-Z_]|GL_)/; |
| 29 | } | 29 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |