svn commit: r160716 - in httpd/apreq/branches/multi-env-unstable: glue/perl/xsbuilder/APR/Request/Param/Param.xs glue/perl/xsbuilder/apreq_xs_postperl.h library/parser_urlencoded.c

[joes]

Author: joes
Date: Sat Apr  9 13:04:38 2005
New Revision: 160716

URL: http://svn.apache.org/viewcvs?view=rev&rev=160716
Log:
s/is_utf8/charset_get|set/g in perl glue.

Modified:
    
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Param/Param.xs
    
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/apreq_xs_postperl.h
    httpd/apreq/branches/multi-env-unstable/library/parser_urlencoded.c

Modified: 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Param/Param.xs
URL: 
http://svn.apache.org/viewcvs/httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Param/Param.xs?view=diff&r1=160715&r2=160716
==============================================================================
--- 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Param/Param.xs
 (original)
+++ 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Param/Param.xs
 Sat Apr  9 13:04:38 2005
@@ -439,21 +439,17 @@
     RETVAL
 
 IV
-is_utf8(obj, val=NULL)
+charset(obj, val=NULL)
     APR::Request::Param obj
     SV *val
   PREINIT:
     /*nada*/
 
   CODE:
-    RETVAL = apreq_param_is_utf8(obj);
-
-    if (items == 2) {
-        if (SvTRUE(val))
-           apreq_param_utf8_on(obj);
-        else
-           apreq_param_utf8_off(obj);
-    }
+    if (items == 2)
+        RETVAL = apreq_param_charset_set(obj, SvIV(val));
+    else
+        RETVAL = apreq_param_charset_get(obj);
 
   OUTPUT:
     RETVAL

Modified: 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/apreq_xs_postperl.h
URL: 
http://svn.apache.org/viewcvs/httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/apreq_xs_postperl.h?view=diff&r1=160715&r2=160716
==============================================================================
--- 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/apreq_xs_postperl.h 
(original)
+++ 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/apreq_xs_postperl.h 
Sat Apr  9 13:04:38 2005
@@ -146,7 +146,7 @@
         SV *rv = newSVpvn(p->v.data, p->v.dlen);
         if (apreq_param_is_tainted(p))
             SvTAINTED_on(rv);
-        if (apreq_param_is_utf8(p))
+        if (apreq_param_charset_get(p) == APREQ_CHARSET_UTF8)
             SvUTF8_on(rv);
         return rv;
     }

Modified: httpd/apreq/branches/multi-env-unstable/library/parser_urlencoded.c
URL: 
http://svn.apache.org/viewcvs/httpd/apreq/branches/multi-env-unstable/library/parser_urlencoded.c?view=diff&r1=160715&r2=160716
==============================================================================
--- httpd/apreq/branches/multi-env-unstable/library/parser_urlencoded.c 
(original)
+++ httpd/apreq/branches/multi-env-unstable/library/parser_urlencoded.c Sat Apr 
 9 13:04:38 2005
@@ -147,7 +147,7 @@
         apr_bucket_delete(f);
 
     apreq_param_tainted_on(param);
-    apreq_param_charset_set(p, charset);
+    apreq_param_charset_set(param, charset);
     *p = param;
     return APR_SUCCESS;
 }