clearlinux/uwsgi
2
0
Fork 0
mirror of https://github.com/clearlinux/uwsgi.git synced 2026-09-07 14:11:46 +00:00
Code Issues Packages Projects Releases Wiki Activity

close bug 85

Browse Source
This commit is contained in:
roberto@mrspurr
2012-03-28 09:00:53 +02:00
parent ed8f0812d7
commit 03bc7d0399
2 changed files with 9 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
plugins/psgi/psgi_plugin.c
+1 -7
View File
@@ -472,19 +472,13 @@ int uwsgi_perl_magic(char *mountpoint, char *lazy) {
// taken from Torsten Foertsch AfterFork.xs
void uwsgi_perl_post_fork() {
/*
GV *tmpgv;
PL_ppid = (IV)getppid();
hv_clear(PL_pidstatus);
tmpgv = gv_fetchpv("$", TRUE, SVt_PV);
GV *tmpgv = gv_fetchpv("$", TRUE, SVt_PV);
if (tmpgv) {
SvREADONLY_off(GvSV(tmpgv));
sv_setiv(GvSV(tmpgv), (IV)getpid());
SvREADONLY_on(GvSV(tmpgv));
}
*/
}
int uwsgi_perl_mount_app(char *mountpoint, char *app, int regexp) {
test.psgi
+8 -5
View File
@@ -8,12 +8,15 @@ if ($rpc_value) {
}
my $app = sub {
my $env = shift;
uwsgi::cache_set("key1", "val1");
print uwsgi::call('hello');
return [
my $env = shift;
uwsgi::cache_set("key1", "val1");
if ($rpc_value) {
print uwsgi::call('hello')."\n";
}
print 'pid '.$$."\n";
return [
'200',
[ 'Content-Type' => 'text/plain' ],
[ "Hello World\r\n", $env->{'REQUEST_URI'}, uwsgi::cache_get('key1'), uwsgi::call('hello') ],
];
];
};