fix tests to use latest OpenGL::Modern

Author: mohawk2

Changes

@@ -1,3 +1,5 @@
+- fix tests to use latest OpenGL::Modern (glGetUniformLocation_c removed _c)
+
 0.0402 2025-04-11
 - minimum Perl 5.10 for better Exporter
 - add constants up to GLFW 3.4

Makefile.PL

@@ -18,7 +18,7 @@ WriteMakefile(
     },
     MIN_PERL_VERSION => '5.010',
     TEST_REQUIRES     => {
-        'OpenGL::Modern' => 0.04,
+        'OpenGL::Modern' => '0.0401',
     },
     ABSTRACT_FROM     => 'lib/OpenGL/GLFW.pm', # retrieve abstract from module
     AUTHOR            => 'Chris Marshall <[email protected]>',

examples/callback.pl

@@ -38,8 +38,8 @@
 #   glUseProgram
 #   glViewport
 #
-#   glGetAttribLocation_c
-#   glGetUniformLocation_c
+#   glGetAttribLocation
+#   glGetUniformLocation
 #   glUniformMatrix4fv_c
 #   glVertexAttribPointer_c
 #
@@ -260,9 +260,9 @@
 glAttachShader($program, $fragment_shader);
 glLinkProgram($program);
 
-my $mvp_location  = glGetUniformLocation_c($program, "MVP");  # TODO change name to _p or no-suffix
-my $vpos_location = glGetAttribLocation_c($program, "vPos");  # TODO change name to _p or no-suffix
-my $vcol_location = glGetAttribLocation_c($program, "vCol");  # TODO change name to _p or no-suffix
+my $mvp_location  = glGetUniformLocation($program, "MVP");  # TODO change name to _p or no-suffix
+my $vpos_location = glGetAttribLocation($program, "vPos");  # TODO change name to _p or no-suffix
+my $vcol_location = glGetAttribLocation($program, "vCol");  # TODO change name to _p or no-suffix
 
 glEnableVertexAttribArray($vpos_location);
 #------------------------------------------------------------ stride, offset

examples/checkimg.pl

@@ -231,9 +231,9 @@
 glAttachShader($program, $fragment_shader);
 glLinkProgram($program);
 
-my $mvp_location  = glGetUniformLocation_c($program, "MVP");  # TODO change name to _p or no-suffix
-my $vpos_location = glGetAttribLocation_c($program, "vPos");  # TODO change name to _p or no-suffix
-my $vcol_location = glGetAttribLocation_c($program, "vCol");  # TODO change name to _p or no-suffix
+my $mvp_location  = glGetUniformLocation($program, "MVP");  # TODO change name to _p or no-suffix
+my $vpos_location = glGetAttribLocation($program, "vPos");  # TODO change name to _p or no-suffix
+my $vcol_location = glGetAttribLocation($program, "vCol");  # TODO change name to _p or no-suffix
 
 glEnableVertexAttribArray($vpos_location);
 #------------------------------------------------------------ stride, offset

examples/simple.pl

@@ -38,8 +38,8 @@
 #   glUseProgram
 #   glViewport
 #
-#   glGetAttribLocation_c
-#   glGetUniformLocation_c
+#   glGetAttribLocation
+#   glGetUniformLocation
 #   glUniformMatrix4fv_c
 #   glVertexAttribPointer_c
 #
@@ -148,9 +148,9 @@
 glAttachShader( $program, $fragment_shader );
 glLinkProgram( $program );
 
-my $mvp_location = glGetUniformLocation_c( $program, "MVP" );    # TODO change name to _p or no-suffix
-my $vpos_location = glGetAttribLocation_c( $program, "vPos" );   # TODO change name to _p or no-suffix
-my $vcol_location = glGetAttribLocation_c( $program, "vCol" );   # TODO change name to _p or no-suffix
+my $mvp_location = glGetUniformLocation( $program, "MVP" );    # TODO change name to _p or no-suffix
+my $vpos_location = glGetAttribLocation( $program, "vPos" );   # TODO change name to _p or no-suffix
+my $vcol_location = glGetAttribLocation( $program, "vCol" );   # TODO change name to _p or no-suffix
 
 glEnableVertexAttribArray( $vpos_location );
 

test.pl

@@ -46,8 +46,8 @@
 #   glUseProgram
 #   glViewport
 #   
-#   glGetAttribLocation_c
-#   glGetUniformLocation_c
+#   glGetAttribLocation
+#   glGetUniformLocation
 #   glUniformMatrix4fv_c
 #   glVertexAttribPointer_c
 #   
@@ -163,9 +163,9 @@
 glAttachShader($program, $fragment_shader);
 glLinkProgram($program);
 
-my $mvp_location  = glGetUniformLocation_c($program, "MVP");  # TODO change name to _p or no-suffix
-my $vpos_location = glGetAttribLocation_c($program, "vPos");  # TODO change name to _p or no-suffix
-my $vcol_location = glGetAttribLocation_c($program, "vCol");  # TODO change name to _p or no-suffix
+my $mvp_location  = glGetUniformLocation($program, "MVP");  # TODO change name to _p or no-suffix
+my $vpos_location = glGetAttribLocation($program, "vPos");  # TODO change name to _p or no-suffix
+my $vcol_location = glGetAttribLocation($program, "vCol");  # TODO change name to _p or no-suffix
 
 glEnableVertexAttribArray($vpos_location);
 #------------------------------------------------------------ stride, offset