Index: Apache.xs
===================================================================
RCS file: /home/cvspublic/modperl/src/modules/perl/Apache.xs,v
retrieving revision 1.121
diff -u -r1.121 Apache.xs
--- Apache.xs	2001/05/01 17:28:37	1.121
+++ Apache.xs	2001/06/13 13:02:24
@@ -238,7 +238,7 @@
 }
 #endif
 
-static char *custom_response(request_rec *r, int status, char *string)
+static char *custom_response(request_rec *r, int status, char *string, int flag)
 {
     core_dir_config *conf = (core_dir_config *)
 	get_module_config(r->per_dir_config, &core_module);
@@ -254,7 +254,10 @@
 
     idx = index_of_response(status);
     retval = conf->response_code_strings[idx];
-    if (string) {
+    if (flag == 1) {
+      conf->response_code_strings[idx] = NULL;
+    }
+    else if (string) {
 	conf->response_code_strings[idx] = 
 	    ((is_url(string) || (*string == '/')) && (*string != '"')) ? 
 		pstrdup(r->pool, string) : pstrcat(r->pool, "\"", string, NULL);
@@ -751,6 +754,18 @@
     Apache     r
     int status
     char *string
+   
+    PREINIT:
+    int flag = 0;
+
+    CODE:
+    if (ST(2) == &sv_undef) {
+      flag = 1;
+    }
+    RETVAL=custom_response(r, status, string, flag);
+
+    OUTPUT:
+    RETVAL
     
 int
 satisfies(r)