Mercurial > hg > nginx
comparison src/http/modules/perl/ngx_http_perl_module.c @ 2049:2a92804f4109
*) back out r2040
*) refactor ngx_palloc()
*) introduce ngx_pnalloc()
*) additional pool blocks have smaller header
author | Igor Sysoev <igor@sysoev.ru> |
---|---|
date | Tue, 17 Jun 2008 15:00:30 +0000 |
parents | 171a283af56b |
children | 722b5aff05ae |
comparison
equal
deleted
inserted
replaced
2048:824615f3b4ec | 2049:2a92804f4109 |
---|---|
701 | 701 |
702 } else { | 702 } else { |
703 line = SvPVx(POPs, n_a); | 703 line = SvPVx(POPs, n_a); |
704 rv->len = n_a; | 704 rv->len = n_a; |
705 | 705 |
706 rv->data = ngx_palloc(r->pool, n_a); | 706 rv->data = ngx_pnalloc(r->pool, n_a); |
707 if (rv->data == NULL) { | 707 if (rv->data == NULL) { |
708 return NGX_ERROR; | 708 return NGX_ERROR; |
709 } | 709 } |
710 | 710 |
711 ngx_memcpy(rv->data, line, n_a); | 711 ngx_memcpy(rv->data, line, n_a); |