Update VERSION to 0.70_01 for CPAN Testers checkout

Author: devel-chm

Changes

@@ -1,6 +1,6 @@
 Revision history for Perl extension OpenGL::Array.
 
-0.01  Tue Feb 28 16:23:40 2017
-	- original version; created by h2xs 1.23 with options
-		-O -b 5.8.0 -A -n OpenGL::Array
-
+0.70_01  Thu Mar  2 10:13:19 EST 2017
+        - first stand alone version of OpenGL::Array
+	- framework initialize with h2xs
+	- code from Perl OpenGL 0.70

README

@@ -1,5 +1,5 @@
-OpenGL-Array version 0.01
-=========================
+OpenGL-Array version 0.70_01
+============================
 
 This is a stand-alone distribution of OpenGL::Array
 (which includes OpenGL::Matrix).  All of these were
@@ -27,7 +27,9 @@ DEPENDENCIES
 
 This module requires these other modules and libraries:
 
-  TODO
+  Devel::CheckOS      => 0
+  ExtUtils::MakeMaker => 6.52
+  Test::More          =>  0
 
 COPYRIGHT AND LICENCE
 

lib/OpenGL/Array.pm

@@ -26,10 +26,8 @@ our @EXPORT = qw(
 	
 );
 
-our $VERSION = '0.01';
+our $VERSION = '0.70_01';
 
-# require XSLoader;
-# XSLoader::load('OpenGL::Array', $VERSION);
 
 bootstrap OpenGL::Array;
 
@@ -40,53 +38,3 @@ bootstrap OpenGL::Array;
 
 1;
 __END__
-# Below is stub documentation for your module. You'd better edit it!
-
-=head1 NAME
-
-OpenGL::Array - Perl extension for blah blah blah
-
-=head1 SYNOPSIS
-
-  use OpenGL::Array;
-  blah blah blah
-
-=head1 DESCRIPTION
-
-Stub documentation for OpenGL::Array, created by h2xs. It looks like the
-author of the extension was negligent enough to leave the stub
-unedited.
-
-Blah blah blah.
-
-=head2 EXPORT
-
-None by default.
-
-
-
-=head1 SEE ALSO
-
-Mention other useful documentation such as the documentation of
-related modules or operating system documentation (such as man pages
-in UNIX), or any relevant external documentation such as RFCs or
-standards.
-
-If you have a mailing list set up for your module, mention it here.
-
-If you have a web site set up for your module, mention it here.
-
-=head1 AUTHOR
-
-U-NAE\chris.h.marshall, E<lt>chris.h.marshall@nonetE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright (C) 2017 by U-NAE\chris.h.marshall
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself, either Perl version 5.22.2 or,
-at your option, any later version of Perl 5 you may have available.
-
-
-=cut

pgopogl_call_XS.h

@@ -0,0 +1,29 @@
+/*
+ * Copyright (C) 2003-2005 by the gtk2-perl team (see the file AUTHORS for
+ * the full list)
+ *
+ * This library is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU Library General Public License as published by
+ * the Free Software Foundation; either version 2.1 of the License, or (at your
+ * option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful, but WITHOUT
+ * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Library General Public
+ * License for more details.
+ *
+ * You should have received a copy of the GNU Library General Public License
+ * along with this library; if not, write to the Free Software Foundation,
+ * Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307  USA.
+ *
+ * $Id: Glib.xs 1077 2009-02-05 14:39:12Z tsch $
+ */
+
+void
+_pgopogl_call_XS (pTHX_ void (*subaddr) (pTHX_ CV *), CV * cv, SV ** mark)
+{
+	dSP;
+	PUSHMARK (mark);
+	(*subaddr) (aTHX_ cv);
+	PUTBACK;	/* forget return values */
+}