Permalink
Browse files

Added the environ back for perl

  • Loading branch information...
1 parent 20ebcf4 commit 433b86e5f310d6762b484432f1a1961c8eaf6216 @kthakore kthakore committed Jun 26, 2010
Showing with 2 additions and 3 deletions.
  1. +2 −3 MacOSX/main.c
View
@@ -1,6 +1,6 @@
#include <EXTERN.h> /* from the Perl distribution */
#include <perl.h> /* from the Perl distribution */
-#include <stdlib.h>
+#include <unistd.h>
#include <SDL/SDL.h>
static PerlInterpreter *my_perl; /* ** The Perl interpreter ***/
@@ -20,8 +20,7 @@ xs_init(pTHX)
int main(int argc, char *argv[])
{
- //printf( "ENV %s \n", argv[1] );
- char **env; // we can't do this but will have to use getenv
+ char **env = environ;
PERL_SYS_INIT3(&argc,&argv,&env);
my_perl = perl_alloc();
perl_construct(my_perl);

0 comments on commit 433b86e

Please sign in to comment.