# HG changeset patch
# User Igor Sysoev <igor@sysoev.ru>
# Date 1197233534 0
# Node ID 43747661804d65ccdeef5ca4fccfd0a714f989c7
# Parent  86bb52e28ce09fa1e022f5dfdfee004385963ab5
*) copy regex captures $1, $2, etc.
*) SV flags debug logging

diff --git a/src/http/modules/perl/nginx.xs b/src/http/modules/perl/nginx.xs
--- a/src/http/modules/perl/nginx.xs
+++ b/src/http/modules/perl/nginx.xs
@@ -42,8 +42,12 @@ ngx_http_perl_sv2str(pTHX_ ngx_http_requ
 
     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_requ
 
     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);