ViewVC Help
View File
|
Revision Log
|
Show Annotations
|
Download File
/
cvs
/
deliantra
/
Deliantra-Client
/
DC
/
OpenGL.pm
Revision:
1.1
Committed:
Wed Apr 19 23:37:49 2006 UTC
(18 years, 2 months ago) by
root
Branch:
MAIN
Log Message:
*** empty log message ***
File Contents
#
Content
1
package CFClient::OpenGL;
2
3
use strict;
4
5
#use CFClient;
6
7
sub import {
8
my $caller = caller;
9
10
no strict;
11
12
my $symtab = *{"main::CFClient::OpenGL::"}{HASH};
13
14
for (keys %$symtab) {
15
*{"$caller\::$_"} = \&$_
16
if /^(?:gl|GL_)/;
17
}
18
}
19
20
1