--- deliantra/Deliantra-Client/DC/OpenGL.pm 2007/08/19 15:57:40 1.11 +++ deliantra/Deliantra-Client/DC/OpenGL.pm 2007/12/26 20:46:39 1.13 @@ -1,9 +1,9 @@ -package CFPlus::OpenGL; +package dc::OpenGL; use strict; use Carp (); -use CFPlus; +use dc; our %GL_EXT; our $GL_VERSION; @@ -21,7 +21,7 @@ no strict; - my $symtab = *{"main::CFPlus::OpenGL::"}{HASH}; + my $symtab = *{"main::dc::OpenGL::"}{HASH}; for (keys %$symtab) { *{"$caller\::$_"} = *$_ @@ -77,8 +77,15 @@ $_->() for values %INIT_HOOK; } +sub quit { + undef $GL_VERSION; + undef %GL_EXT; +} + sub shutdown { $_->() for values %SHUTDOWN_HOOK; + + quit; } sub gl_check {