mirror/nginx
1
0
Fork 0
mirror of https://github.com/nginx/nginx.git synced 2025-06-10 11:38:36 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

*) copy regex captures $1, $2, etc.

Browse Source 
*) SV flags debug logging
This commit is contained in:
Igor Sysoev 2007-12-09 20:52:14 +00:00
parent 16623e0b9c
commit e600494185
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/http/modules/perl/nginx.xs
View File

@ -42,8 +42,12 @@ ngx_http_perl_sv2str(pTHX_ ngx_http_request_t *r, ngx_str_t *s, SV *sv)
s->len = len; s->len = len;
if (SvREADONLY(sv)) { if (SvREADONLY(sv) && SvPOK(sv)) {
s->data = p; s->data = p;
ngx_log_debug2(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
"perl sv2str: %08XD \"%V\"", sv->sv_flags, s);
return NGX_OK; return NGX_OK;
} }
@ -54,6 +58,9 @@ ngx_http_perl_sv2str(pTHX_ ngx_http_request_t *r, ngx_str_t *s, SV *sv)
ngx_memcpy(s->data, p, len); ngx_memcpy(s->data, p, len);
ngx_log_debug2(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
"perl sv2str: %08XD \"%V\"", sv->sv_flags, s);
return NGX_OK; return NGX_OK;
} }
@ -532,7 +539,7 @@ print(r, ...)
sv = SvRV(sv); sv = SvRV(sv);
} }
if (SvREADONLY(sv)) { if (SvREADONLY(sv) && SvPOK(sv)) {
p = (u_char *) SvPV(sv, len); p = (u_char *) SvPV(sv, len);