[mp2 Patch] -Wall -Werrror fixes

[Philippe M. Chiasson]

Caught a few little problems caught by gcc -Wall -Werror this morning.

Index: src/modules/perl/modperl_const.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_const.c,v
retrieving revision 1.9
diff -u -I$Id -r1.9 modperl_const.c
--- src/modules/perl/modperl_const.c    12 May 2003 13:00:15 -0000      1.9
+++ src/modules/perl/modperl_const.c    5 Feb 2004 18:51:41 -0000
@@ -10,7 +10,7 @@
 {
     int name_len = strlen(name);
     GV **gvp = (GV **)hv_fetch(stash, name, name_len, TRUE);
-    SV *val;
+    SV *val = Nullsv;
 
     /* dont redefine */
     if (!isGV(*gvp) || !GvCV(*gvp)) {
Index: src/modules/perl/modperl_filter.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_filter.c,v
retrieving revision 1.80
diff -u -I$Id -r1.80 modperl_filter.c
--- src/modules/perl/modperl_filter.c   23 Dec 2003 15:56:01 -0000      1.80
+++ src/modules/perl/modperl_filter.c   5 Feb 2004 18:51:41 -0000
@@ -326,8 +326,8 @@
                                         apr_pool_t *p)
 {
     char *init_handler_pv_code;
-    char *package_name;
-    CV *cv;
+    char *package_name = NULL;
+    CV *cv = Nullcv;
     MAGIC *mg;
     
     if (handler->mgv_cv) {
Index: xs/APR/PerlIO/apr_perlio.c
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/APR/PerlIO/apr_perlio.c,v
retrieving revision 1.35
diff -u -I$Id -r1.35 apr_perlio.c
--- xs/APR/PerlIO/apr_perlio.c  10 Oct 2003 19:47:12 -0000      1.35
+++ xs/APR/PerlIO/apr_perlio.c  5 Feb 2004 18:51:42 -0000
@@ -58,7 +58,7 @@
     SV *arg = (narg > 0) ? *args : PerlIOArg;
     PerlIOAPR *st;
     const char *path;
-    apr_int32_t apr_flag;
+    apr_int32_t apr_flag = APR_READ;
     apr_status_t rc;
     SV *sv;
     
@@ -220,7 +220,7 @@
 static IV PerlIOAPR_seek(pTHX_ PerlIO *f, Off_t offset, int whence)
 {
     PerlIOAPR *st = PerlIOSelf(f, PerlIOAPR);
-    apr_seek_where_t where;
+    apr_seek_where_t where = APR_SET;
     apr_status_t rc;
     apr_off_t seek_offset = 0;
 
@@ -435,7 +435,7 @@
 PerlIO *apr_perlio_apr_file_to_PerlIO(pTHX_ apr_file_t *file, apr_pool_t *pool,
                                       apr_perlio_hook_e type)
 {
-    char *mode;
+    char *mode = "r";
     const char *layers = ":APR";
     PerlIOAPR *st;
     PerlIO *f = PerlIO_allocate(aTHX);

signature.asc
Description: This is a digitally signed message part