commit e60049418525a5e605765aa2b8f9c6796eb390a6
author Igor Sysoev <igor@sysoev.ru> Sun Dec 09 20:52:14 2007 +0000
committer Igor Sysoev <igor@sysoev.ru> Sun Dec 09 20:52:14 2007 +0000
tree 41a0cae4855de72f656ea2fe703638553e6cc149
parent 16623e0b9cd1b8138225615efeccf2093a7ced24

*) copy regex captures $1, $2, etc.
*) SV flags debug logging

src/http/modules/perl/nginx.xs

diff --git a/src/http/modules/perl/nginx.xs b/src/http/modules/perl/nginx.xs
index 65ec69c..45b03ef 100644
--- a/src/http/modules/perl/nginx.xs
+++ b/src/http/modules/perl/nginx.xs
@@ -42,8 +42,12 @@
 
     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_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 @@
             sv = SvRV(sv);
         }
 
-        if (SvREADONLY(sv)) {
+        if (SvREADONLY(sv) && SvPOK(sv)) {
 
             p = (u_char *) SvPV(sv, len);