correct debugging messages

Author: mohawk2

lib/PDL/Graphics/TriD/GL.pm

@@ -485,7 +485,7 @@ use fields qw/Ev Width Height Interactive _GLObject
 
 sub gdriver {
   my($this, $options) = @_;
-  print "GL gdriver...\n" if($PDL::Graphics::TriD::verbose);
+  print "GL gdriver...\n" if $PDL::Graphics::TriD::verbose;
   if(defined $this->{_GLObject}){
     print "WARNING: Graphics Driver already defined for this window \n";
     return;
@@ -786,7 +786,6 @@ and graphics contexts.
 
 Defaults to using L<OpenGL::GLFW> - override by setting the environment
 variable C<POGL_WINDOW_TYPE> to C<glut>, C<x11> , or the default is C<glfw>.
-This is implemented by C<PDL::Graphics::TriD::Window::gdriver>.
 
 =head2 new
 

lib/PDL/Graphics/TriD/GL/GLFW.pm

@@ -30,7 +30,7 @@ sub new {
   glfwSetWindowRefreshCallback($glfwin,\&_display_wrapper);
   glfwShowWindow($glfwin);
   if ($PDL::Graphics::TriD::verbose) {
-    print "gdriver: Got TriD::GL object(GLFW window ID#$self->{window_seq} " . $self->{glfwwindow} . ")\n";
+    print "GLFW driver: Got TriD::GL object(GLFW window ID#$self->{window_seq} " . $self->{glfwwindow} . ")\n";
   }
   $self->{winobjects}->{$self->{glfwwindow}} = $window_obj;      # circular ref
   $self;

lib/PDL/Graphics/TriD/GL/GLUT.pm

@@ -49,7 +49,7 @@ sub _init_glut_window {
   glutSetOption(GLUT_ACTION_ON_WINDOW_CLOSE, GLUT_ACTION_GLUTMAINLOOP_RETURNS) if _have_freeglut();
   glutMainLoopEvent();       # pump event loop so window appears
   if ($PDL::Graphics::TriD::verbose) {
-    print "gdriver: Got TriD::GL object(GLUT window ID# " . $self->{glutwindow} . ")\n";
+    print "GLUT driver: Got TriD::GL object(GLUT window ID# " . $self->{glutwindow} . ")\n";
   }
   $self->{winobjects}->[$self->{glutwindow}] = $window_obj;      # circular ref
 }

lib/PDL/Graphics/TriD/Window.pm

@@ -16,13 +16,13 @@ sub new {
   my $this = $arg->SUPER::new();
   print "PDL::Graphics::TriD::Window - got back $this\n" if($PDL::Graphics::TriD::verbose);
   # Make sure the Graphics has been initialized
-  $options->{width} =	600 unless defined $options->{width};
-  $options->{height} =	600 unless defined $options->{height};
+  $options->{width} //= 600;
+  $options->{height} //= 600;
   $this->{Width} = $options->{width};
   $this->{Height} = $options->{height};
-  print "PDL::Graphics::TriD::Window: calling gdriver....\n" if($PDL::Graphics::TriD::verbose);
+  print "PDL::Graphics::TriD::Window: calling gdriver....\n" if $PDL::Graphics::TriD::verbose;
   $this->{Interactive} = $this->gdriver($options);
-  print "PDL::Graphics::TriD::Window: gdriver gave back $this->{Interactive}....\n" if($PDL::Graphics::TriD::verbose);
+  print "PDL::Graphics::TriD::Window: gdriver gave back $this->{Interactive}....\n" if $PDL::Graphics::TriD::verbose;
   # set default values
   if($this->{Interactive}){
       print "\tIt's interactive... calling ev_defaults...\n" if($PDL::Graphics::TriD::verbose);