Bug#552458: libopengl-perl: Freeglut support not working

[Henning Glawe]

Package: libopengl-perl
Version: 0.60+dfsg-1
Severity: important
Tags: patch

Moin,
due to a problem in upstreams build system, freeglut as installed by
freeglut3-dev is not recognized as freeglut, but only as glut (which
breaks event handling as used in PDL: windows are not properly
mapped/unmapped, mouse interaction non-working; this is partly
also observable in libopengl-perl's examples).
the reason for this is that the build system does not look for the
freeglut headers, but for the library -lfreeglut. in freeglut3-dev, the
library is called only -lglut, therefore freeglut is mistaken for the
basic 'glut'.
the patch attached to this report (already submitted upstream) solves
this by checking for the headers in addition.
it should apply on top of your quilt stack.


-- System Information:
Debian Release: 5.0.3
  APT prefers stable
  APT policy: (500, 'stable')
Architecture: amd64 (x86_64)

Kernel: Linux 2.6.30-bpo.2-amd64 (SMP w/2 CPU cores)
Locale: LANG=en_US.UTF-8, LC_CTYPE=de_DE.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash

Versions of packages libopengl-perl depends on:
ii  freeglut3                2.4.0-6.1       OpenGL Utility Toolkit
ii  libc6                    2.7-18          GNU C Library: Shared libraries
ii  libgl1-mesa-glx [libgl1] 7.0.3-7         A free implementation of the OpenG
ii  libglu1-mesa [libglu1]   7.0.3-7         The OpenGL utility library (GLU)
ii  libx11-6                 2:1.1.5-2       X11 client-side library
ii  perl                     5.10.0-19lenny2 Larry Wall's Practical Extraction 
ii  perl-base [perlapi-5.10. 5.10.0-19lenny2 minimal Perl system

libopengl-perl recommends no packages.

libopengl-perl suggests no packages.

-- no debconf information

-- 
c u
henning
-------------- next part --------------
Index: libopengl-perl-0.60+dfsg/Makefile.PL
===================================================================
--- libopengl-perl-0.60+dfsg.orig/Makefile.PL	2009-10-26 11:25:15.529290305 +0100
+++ libopengl-perl-0.60+dfsg/Makefile.PL	2009-10-26 11:38:18.692290542 +0100
@@ -476,6 +476,19 @@
     print "GLX not found (neither library, nor headers).";
   }
 
+  # Test for obfuscated Freeglut
+  # quite often Freeglut is in -lglut...  Test for GL/freeglut.h instead...
+  my $out = cfile_text('GL/freeglut.h');
+
+  # The cpp would not let this macro through. Check for something else
+  # that still exists after the cpp pass. a typedef, or type would work
+  my $has_freeglut = ($out =~ m|glutMainLoopEvent|);
+
+  if ($has_freeglut)
+  {
+    $DEFS .= " -DHAVE_FREEGLUT_H -DHAVE_FREEGLUT";
+    $found_libs->{FREEGLUT}="glut" unless ($found_libs->{FREEGLUT});
+  }
 
   # Marshall libs
   my $libs = ' -l'.join(' -l',values(%$found_libs));