3 files changed, 151 insertions, 0 deletions
diff --git a/dev-perl/OpenGL/Manifest b/dev-perl/OpenGL/Manifest
index 8d55859de1af..93d2a78224b1 100644
--- a/dev-perl/OpenGL/Manifest
+++ b/dev-perl/OpenGL/Manifest
@@ -1 +1,2 @@
 DIST OpenGL-0.6704.tar.gz 623036 SHA256 36f266e31d617fa9a1bd8928a7dc3b7c40c1bbbfa64bddefe22300ac2bc6c436 SHA512 3a2c9970802242ebae58256cd80dc81ac04a2af974105d3fbdf4dfcf1aa64a769b1ffcb5b0156eceb6bf7aed6eb6b2eb9332ec9f4724b0a1bc61d15f0de99d09 WHIRLPOOL f6cb34b30c7ef2af0d2dc16ab4b5d9f7216f2ab08c0bf904305f358fec751492fe605bdb783d6ebb9dcdb83fa3601f831e9162fe4bc0d33a68cbafa7c289b86c
+DIST OpenGL-0.70.tar.gz 783810 SHA256 b20e2af4404b4901ab35bba6ad5e3a8aa60bff72413c99288f01018c4cf874e0 SHA512 7d418015b2553dd69805252b5957bc97013260617d5a358f692e29b8da884590421c81fbc71d4dd678c93a5c89047d6af8c32f15bf0bd0e4ce514c200e634af5 WHIRLPOOL 39094d8124f46f45595a01467ac40becdf33090a254475bb32810ea791952a7829fc6fcddc9f685ee8683f87604b81d29ab2fe21821fb9c8de8d4a6fe85470cf
diff --git a/dev-perl/OpenGL/OpenGL-0.700.0.ebuild b/dev-perl/OpenGL/OpenGL-0.700.0.ebuild
new file mode 100644
index 000000000000..df2063f9c2ae
--- /dev/null
+++ b/dev-perl/OpenGL/OpenGL-0.700.0.ebuild
@@ -0,0 +1,51 @@
+# Copyright 1999-2016 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Id$
+
+EAPI=6
+
+DIST_AUTHOR=CHM
+DIST_VERSION=0.70
+
+inherit perl-module eutils
+
+DESCRIPTION="Perl interface providing graphics display using OpenGL"
+
+SLOT="0"
+KEYWORDS="~amd64 ~arm ~ppc ~ppc64 ~x86 ~amd64-linux ~x86-linux"
+IUSE="examples"
+
+RDEPEND="
+	media-libs/freeglut:0=
+	x11-libs/libICE:0=
+	x11-libs/libXext:0=
+	x11-libs/libXi:0=
+	x11-libs/libXmu:0="
+DEPEND="${RDEPEND}"
+
+mydoc="Release_Notes"
+
+src_prepare() {
+	eapply "${FILESDIR}"/${P}-no-display.patch
+	# This should be merely moved to t/ as it gets
+	# installed to OS otherwise.
+	# But it presently fails tests, and can't be made not to.
+	# ( And will need virtualx when it can )
+	# Something to do with OpenGL implementation ala eselect.
+	perl_rm_files "test.pl";
+	perl-module_src_prepare
+}
+
+src_compile() {
+	sed -i -e 's/PERL_DL_NONLAZY=1//' Makefile || die
+	perl-module_src_compile
+}
+
+src_install() {
+	perl-module_src_install
+	if use examples; then
+		docompress -x /usr/share/doc/${PF}/examples
+		insinto /usr/share/doc/${PF}/examples
+		doins -r examples/*
+	fi
+}
diff --git a/dev-perl/OpenGL/files/OpenGL-0.700.0-no-display.patch b/dev-perl/OpenGL/files/OpenGL-0.700.0-no-display.patch
new file mode 100644
index 000000000000..e351c3f3ac3c
--- /dev/null
+++ b/dev-perl/OpenGL/files/OpenGL-0.700.0-no-display.patch
@@ -0,0 +1,99 @@
+diff -urN OpenGL-0.70.orig/Makefile.PL OpenGL-0.70/Makefile.PL
+--- OpenGL-0.70.orig/Makefile.PL	2016-10-08 21:11:14.000000000 +0200
++++ OpenGL-0.70/Makefile.PL	2016-12-24 21:08:08.674243142 +0100
+@@ -601,9 +601,9 @@
+   {
+     FILES =>
+       "Config.pm ".
+-      "utils/glversion.txt ".
+-      "utils/glversion$Config{exe_ext} ".
+-      "utils/glversion$Config{obj_ext}"
++      "utils/glversion.txt "
++      #"utils/glversion$Config{exe_ext} ".
++      #"utils/glversion$Config{obj_ext}"
+   }
+ };
+ 
+@@ -824,65 +824,6 @@
+     print "GLUT not found\n";
+   }
+ 
+-  # Platform-specific makefiles for glversion
+-  my $make_ver;
+-  if ($IS_STRAWBERRY)
+-  {
+-    $make_ver = "&strawberry.bat";
+-    print "strawberry glversion: '$make_ver'\n" if $verbose>1;
+-  }
+-  elsif ($IS_MINGW)
+-  {
+-    $make_ver = "&mingw.bat";
+-    print "mingw glversion: '$make_ver'\n" if $verbose>1;
+-  }
+-  elsif ($IS_W32API)
+-  {
+-    $make_ver = ";make -f Makefile.cygwin " .  (length($lib) ? "GLUT_LIB=$lib " : "") . (length($def) ? "GLUT_DEF=$def " : "");
+-    print "cygwin glversion: '$make_ver'\n" if $verbose>1;
+-  }
+-  elsif ($^O eq 'MSWin32')
+-  {
+-    $make_ver = '&nmake -f makefile.mak ' . (length($def) ? "GLUT_DEF=$def " : "");
+-    print "MSWin32 glversion: '$make_ver'\n" if $verbose>1;
+-  }
+-  elsif ($^O eq 'darwin')
+-  {
+-    $make_ver = ";make -f Makefile.macosx " .  (length($lib) ? "GLUT_LIB=$lib " : "") . (length($def) ? "GLUT_DEF=$def " : "");
+-    print "MacOSX glversion: '$make_ver'\n" if $verbose>1;
+-  }
+-  else
+-  {
+-    if ($ENV{TERM} ne 'xterm')
+-    {
+-      print "\nIn order to test your GPU's capabilities, run this make under an X11 shell\n\n";
+-    }
+-
+-    $make_ver = ";make -f Makefile " .  (length($lib) ? "GLUT_LIB=$lib " : "") . (length($def) ? "GLUT_DEF=$def " : "");
+-    print "glversion: '$make_ver'\n" if $verbose>1;
+-  }
+-  my $exec = 'cd utils'."$make_ver clean".$make_ver;
+-  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
+-  open GLDATA, $glv_file or die "get_extensions: could not open $glv_file: $!\n";
+-  my $gldata = {};
+-  my @gldata = <GLDATA>;
+-  close(GLDATA);
+-
+-  foreach my $line (@gldata)
+-  {
+-    $line =~ s|[\r\n]+||;
+-    my($key,$val) = split('=',$line);
+-    $gldata->{$key} = $val;
+-  }
+-  die "get_extensions: no extensions found in $glv_file\n" if !keys %$gldata;
+-
+-  print "This looks like OpenGL Version: $gldata->{VERSION}\n";
+-
+   # Parse glext_procs.h file
+   open GLEXT, "glext_procs.h" or die "get_extensions: could not open glext_procs.h: $!\n";
+   my @lines = <GLEXT>;
+@@ -896,14 +837,11 @@
+     next if ($ext =~ m|^GL_VERSION_|);
+     $no_ext->{$ext}++;
+   }
+-
++  use Config;
++  my $gldata = { };
+ 
+   # Create gl_exclude.h
+   die "Unable to write to $exc_file\n" if (!open(GLEXC,">$exc_file"));
+-  print GLEXC "// OpenGL Extension Exclusions - may be modified before building.\n";
+-  print GLEXC "//\n";
+-  print GLEXC "// Generated for ".$gldata->{VENDOR}.", ".$gldata->{RENDERER}."\n";
+-  print GLEXC "// OpenGL v".$gldata->{VERSION}.", using ";
+ 
+   # Fix GLUT flags based on results
+   if ($gldata->{FREEGLUT})