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