/usr/share/perl5/Dizzy/TextureSwitcher/Simple.pm is in dizzy 0.3-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | package Dizzy::TextureSwitcher::Simple;
use strict;
use warnings;
use OpenGL qw(:all);
use Dizzy::Handlers;
sub init {
Dizzy::Handlers::register(
texture_switch => sub {
my %args = @_;
glBindTexture(GL_TEXTURE_2D, $args{gl_texture});
Dizzy::Handlers::invoke("texture_switched", %args);
Dizzy::Handlers::STOP;
}
);
}
1;
|