install freeglut to auto, not sitebin; ignore when found in sitebin

This prevents the freeglut we install from interfering with other versions
of the library on the system, and prevents the freeglut from OpenGL.pm to
interfere with ours.

Author: wchristian

Makefile.PL

@@ -449,8 +449,15 @@ if ($IS_W32API || (($^O eq 'MSWin32') && !$IS_CYGWIN))		# Win32
   #
   ## $EXES = ['FreeGLUT/freeglut.dll'];
   {
-     system $^X , qw[-MExtUtils::Command -e mkpath --], qw[blib/bin];
-     system $^X , qw[-MExtUtils::Command -e cp --], qw[FreeGLUT/freeglut.dll blib/bin/freeglut.dll];
+     system $^X , qw[-MExtUtils::Command -e mkpath --], qw[blib/arch/auto/OpenGL];
+     system $^X , qw[-MExtUtils::Command -e cp --], qw[FreeGLUT/freeglut.dll blib/arch/auto/OpenGL/freeglut.dll];
+     my @other_installs = grep { -e "$_\\freeglut.dll" } split /;/, $ENV{PATH};
+     if(@other_installs) {
+      print "\n" ;
+      print "XXX Other freeglut.dll installed in $_\n" for @other_installs;
+      print "Please verify whether the other found dll(s) are from older OpenGL.pm installs, and delete them if so!\n\n\n";
+      sleep 2;
+     }
   }
 
 }
@@ -698,6 +705,10 @@ sub get_libs
         my $lib = $libs->{$key};
         next if (!-e "$path/$lib");
         $lib =~ s/\.dll$//i;
+        if ( $lib eq "freeglut" ) {
+          my @p = split m@[/\\]@, $Config{installsitebin};
+          next if $path eq join "/", @p or $path eq join "\\", @p;
+        }
         # print "  $key: $lib\n";
         $found->{$key} = $lib;
         last;
@@ -707,7 +718,7 @@ sub get_libs
     # Install FreeGLUT if not found
     if (!$found->{FREEGLUT32} and !$IS_STRAWBERRY)
     {
-      my $dll_dir = $Config{installsitebin};
+      my $dll_dir = "utils";
 
       my $exec;
       if ($IS_W32API)
@@ -860,7 +871,7 @@ sub get_extensions
   print "glversion: $exec\n" if ($verbose);
   my $stat = `$exec`;
   print "\n$stat\n\n" if ($verbose);
-
+  unlink "utils/freeglut.dll" or die "could not remove temporary freeglut: $!" if -f "utils/freeglut.dll";
 
   # Parse glversion.txt file
   if ( !defined(open(GLDATA,$glv_file)) ) {