clearlinux/uwsgi
2
0
Fork 0
mirror of https://github.com/clearlinux/uwsgi.git synced 2026-06-16 02:15:48 +00:00
Code Issues Packages Projects Releases Wiki Activity

another PSGI loading fix

Browse Source
This commit is contained in:
roberto@natty32
2011-05-04 05:27:32 +02:00
parent 8152648f66
commit 1561dd38fc
1 changed files with 16 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
plugins/psgi/psgi_plugin.c
+16 -8
View File
@@ -156,16 +156,24 @@ void uwsgi_psgi_app() {
// two-pass loading: parse the script -> eval the script
uperl.embedding[1] = uperl.psgi;
perl_parse(uperl.main, xs_init, 2, uperl.embedding, NULL);
if (uperl.locallib) {
char *ll = uwsgi_concat3("use local::lib '", uperl.locallib, "' ;");
uwsgi_log("using %s as local::lib directory\n", uperl.locallib);
perl_eval_pv(ll, 0);
free(ll);
}
if (uperl.locallib) {
uwsgi_log("using %s as local::lib directory\n", uperl.locallib);
uperl.embedding[1] = uwsgi_concat2("-Mlocal::lib=", uperl.locallib);
uperl.embedding[2] = uperl.psgi;
if (perl_parse(uperl.main, xs_init, 3, uperl.embedding, NULL)) {
exit(1);
}
}
else {
uperl.embedding[1] = uperl.psgi;
if (perl_parse(uperl.main, xs_init, 2, uperl.embedding, NULL)) {
exit(1);
}
}
perl_eval_pv("use IO::Handle;", 0);
perl_eval_pv("use IO::File;", 0);