| … | … | ||
|---|---|---|---|
| 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 |