joes 2003/10/17 07:23:29
Modified: glue/perl/xsbuilder apreq_xs_postperl.h
glue/perl/xsbuilder/Apache/Cookie Apache__Cookie.h
glue/perl/xsbuilder/Apache/Request Apache__Request.h
Log:
more -Werror problems eliminated
Revision Changes Path
1.18 +0 -47 httpd-apreq-2/glue/perl/xsbuilder/apreq_xs_postperl.h
Index: apreq_xs_postperl.h
===================================================================
RCS file: /home/cvs/httpd-apreq-2/glue/perl/xsbuilder/apreq_xs_postperl.h,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- apreq_xs_postperl.h 14 Oct 2003 19:16:37 -0000 1.17
+++ apreq_xs_postperl.h 17 Oct 2003 14:23:29 -0000 1.18
@@ -383,53 +383,6 @@
} \
}
-static XS(apreq_xs_encode)
-{
- dXSARGS;
- STRLEN slen;
- const char *src;
-
- if (items != 1)
- Perl_croak(aTHX_ "Usage: encode($string)");
-
- src = SvPVbyte(ST(0), slen);
- if (src == NULL)
- XSRETURN_UNDEF;
-
- ST(0) = sv_newmortal();
- SvUPGRADE(ST(0), SVt_PV);
- SvGROW(ST(0), 3 * slen + 1);
- SvCUR(ST(0)) = apreq_encode(SvPVX(ST(0)), src, slen);
- SvPOK_on(ST(0));
- XSRETURN(1);
-}
-
-static XS(apreq_xs_decode)
-{
- dXSARGS;
- STRLEN slen;
- apr_ssize_t len;
- const char *src;
-
- if (items != 1)
- Perl_croak(aTHX_ "Usage: decode($string)");
-
- src = SvPVbyte(ST(0), slen);
- if (src == NULL)
- XSRETURN_UNDEF;
-
- ST(0) = sv_newmortal();
- SvUPGRADE(ST(0), SVt_PV);
- SvGROW(ST(0), slen + 1);
- len = apreq_decode(SvPVX(ST(0)), src, slen);
- if (len < 0)
- XSRETURN_UNDEF;
- SvCUR_set(ST(0),len);
- SvPOK_on(ST(0));
- XSRETURN(1);
-}
-
-
/** @} */
#endif /* APREQ_XS_POSTPERL_H */
1.15 +45 -0
httpd-apreq-2/glue/perl/xsbuilder/Apache/Cookie/Apache__Cookie.h
Index: Apache__Cookie.h
===================================================================
RCS file:
/home/cvs/httpd-apreq-2/glue/perl/xsbuilder/Apache/Cookie/Apache__Cookie.h,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- Apache__Cookie.h 15 Jul 2003 13:15:10 -0000 1.14
+++ Apache__Cookie.h 17 Oct 2003 14:23:29 -0000 1.15
@@ -167,3 +167,48 @@
XSRETURN_IV(status);
}
+static XS(apreq_xs_encode)
+{
+ dXSARGS;
+ STRLEN slen;
+ const char *src;
+
+ if (items != 1)
+ Perl_croak(aTHX_ "Usage: encode($string)");
+
+ src = SvPVbyte(ST(0), slen);
+ if (src == NULL)
+ XSRETURN_UNDEF;
+
+ ST(0) = sv_newmortal();
+ SvUPGRADE(ST(0), SVt_PV);
+ SvGROW(ST(0), 3 * slen + 1);
+ SvCUR(ST(0)) = apreq_encode(SvPVX(ST(0)), src, slen);
+ SvPOK_on(ST(0));
+ XSRETURN(1);
+}
+
+static XS(apreq_xs_decode)
+{
+ dXSARGS;
+ STRLEN slen;
+ apr_ssize_t len;
+ const char *src;
+
+ if (items != 1)
+ Perl_croak(aTHX_ "Usage: decode($string)");
+
+ src = SvPVbyte(ST(0), slen);
+ if (src == NULL)
+ XSRETURN_UNDEF;
+
+ ST(0) = sv_newmortal();
+ SvUPGRADE(ST(0), SVt_PV);
+ SvGROW(ST(0), slen + 1);
+ len = apreq_decode(SvPVX(ST(0)), src, slen);
+ if (len < 0)
+ XSRETURN_UNDEF;
+ SvCUR_set(ST(0),len);
+ SvPOK_on(ST(0));
+ XSRETURN(1);
+}
1.17 +0 -1
httpd-apreq-2/glue/perl/xsbuilder/Apache/Request/Apache__Request.h
Index: Apache__Request.h
===================================================================
RCS file:
/home/cvs/httpd-apreq-2/glue/perl/xsbuilder/Apache/Request/Apache__Request.h,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- Apache__Request.h 17 Jul 2003 02:59:33 -0000 1.16
+++ Apache__Request.h 17 Oct 2003 14:23:29 -0000 1.17
@@ -60,7 +60,6 @@
APREQ_XS_DEFINE_ENV(request);
APREQ_XS_DEFINE_OBJECT(request);
-APREQ_XS_DEFINE_MAKE(param);
/* Too many GET macros :-( */
