IntenseWebs/nginx
3
0
Fork 0
mirror of https://github.com/nginx/nginx.git synced 2025-02-25 18:55:26 -06:00
Code Issues 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;
if (SvREADONLY(sv)) {
if (SvREADONLY(sv) && SvPOK(sv)) {
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;
}
@ -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_log_debug2(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
"perl sv2str: %08XD \"%V\"", sv->sv_flags, s);
return NGX_OK;
}
@ -532,7 +539,7 @@ print(r, ...)
sv = SvRV(sv);
}
if (SvREADONLY(sv)) {
if (SvREADONLY(sv) && SvPOK(sv)) {
p = (u_char *) SvPV(sv, len);