… | … | ||
---|---|---|---|
52 | 52 | ||
53 | sub gl_check { | 53 | sub gl_check { |
54 | return unless $GL_DEBUG; | 54 | return unless $GL_DEBUG; |
55 | 55 | ||
56 | if (my $error = glGetError) { | 56 | if (my $error = glGetError) { |
57 | my ($format, @args) = @_; | ||
57 | Carp::cluck sprintf "opengl error %x while %s", $error, &sprintf(@_); | 58 | Carp::cluck sprintf "opengl error %x while $format", $error, @args; |
58 | } | 59 | } |
59 | } | 60 | } |
60 | 61 | ||
61 | sub find_rcfile($) { | 62 | sub find_rcfile($) { |
62 | my $path; | 63 | my $path; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |