iarv/znc
1
0
Fork 0
mirror of https://github.com/znc/znc.git synced 2026-03-28 17:42:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fix build of modperl under MacOS X, again

Browse Source
This commit is contained in:
Alexey Sokolov
2014-02-01 16:08:19 +00:00
parent 2858da4c76
commit 4e5a45f73e
1 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
modules/modperl.cpp
View File

@@ -28,6 +28,10 @@
#include <perl.h>
#include <XSUB.h>
#if defined(__APPLE__) && defined(__MACH__)
#include <crt_externs.h> // for _NSGetEnviron
#endif
#include "modperl/pstring.h"
using std::set;
@@ -67,10 +71,16 @@ public:
"-I", const_cast<char*>(sTmp.c_str()),
const_cast<char*>(sModPath.c_str()), NULL};
char **argv = pArgv;
PERL_SYS_INIT3(&argc, &argv, &environ);
char *** const pEnviron =
#if defined(__APPLE__) && defined(__MACH__)
_NSGetEnviron();
#else
&environ;
#endif
PERL_SYS_INIT3(&argc, &argv, pEnviron);
m_pPerl = perl_alloc();
perl_construct(m_pPerl);
if (perl_parse(m_pPerl, xs_init, argc, argv, environ)) {
if (perl_parse(m_pPerl, xs_init, argc, argv, *pEnviron)) {
sMessage = "Can't initialize perl. ";
if (SvTRUE(ERRSV)) {
sMessage += PString(ERRSV);