# HG changeset patch
# User Igor Sysoev <igor@sysoev.ru>
# Date 1166792707 0
# Node ID 97489c43e7553746ca7f1be56792c28570e5c9e4
# Parent  ca9fe5ae412b33ea1dcb1442227728808c9ccded
fix segfault

diff -r ca9fe5ae412b -r 97489c43e755 src/http/modules/perl/nginx.xs
--- a/src/http/modules/perl/nginx.xs	Fri Dec 22 12:54:08 2006 +0000
+++ b/src/http/modules/perl/nginx.xs	Fri Dec 22 13:05:07 2006 +0000
@@ -387,7 +387,10 @@
 
     ngx_http_perl_set_request(r);
 
-    if (r->request_body->temp_file || r->request_body->bufs == NULL) {
+    if (r->request_body == NULL
+        || r->request_body->temp_file
+        || r->request_body->bufs == NULL)
+    {
         XSRETURN_UNDEF;
     }
 
@@ -411,7 +414,7 @@
 
     ngx_http_perl_set_request(r);
 
-    if (r->request_body->temp_file == NULL) {
+    if (r->request_body == NULL || r->request_body->temp_file == NULL) {
         XSRETURN_UNDEF;
     }