Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fixed environ useage

  • Loading branch information...
commit 2cc5e570e8b7660064eede6e00c4efdbfa2f79be 1 parent 433b86e
@kthakore kthakore authored
Showing with 7 additions and 6 deletions.
  1. +3 −2 MacOSX/main.c
  2. +4 −4 examples/cookbook/pogl_sdl_texture.pl
View
5 MacOSX/main.c
@@ -1,8 +1,9 @@
#include <EXTERN.h> /* from the Perl distribution */
#include <perl.h> /* from the Perl distribution */
-#include <unistd.h>
#include <SDL/SDL.h>
+extern char **environ;
+
static PerlInterpreter *my_perl; /* ** The Perl interpreter ***/
static void xs_init (pTHX);
@@ -21,7 +22,7 @@ xs_init(pTHX)
int main(int argc, char *argv[])
{
char **env = environ;
- PERL_SYS_INIT3(&argc,&argv,&env);
+ PERL_SYS_INIT3(&argc,&argv, &env);
my_perl = perl_alloc();
perl_construct(my_perl);
PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
View
8 examples/cookbook/pogl_sdl_texture.pl
@@ -77,13 +77,13 @@ sub DrawScene {
glBegin(GL_QUADS);
glTexCoord2f( 0.0, 0.0 );
- glVertex3f( -1.0, -1.0, 0 );
+ glVertex3f( -1.0, 1.0, 0 );
glTexCoord2f( 1.0, 0.0 );
- glVertex3f( 1.0, -1.0, 0 );
- glTexCoord2f( 1.0, 1.0 );
glVertex3f( 1.0, 1.0, 0 );
+ glTexCoord2f( 1.0, 1.0 );
+ glVertex3f( 1.0, -1.0, 0 );
glTexCoord2f( 0.0, 1.0 );
- glVertex3f( -1.0, 1.0, 0 );
+ glVertex3f( -1.0, -1.0, 0 );
glEnd();
$app->sync();

0 comments on commit 2cc5e57

Please sign in to comment.
Something went wrong with that request. Please try again.