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