diff --exclude=CVS -Naur extproc_perl-1.99_06.orig/ep_package.sql.in extproc_perl2/ep_package.sql.in
--- extproc_perl-1.99_06.orig/ep_package.sql.in	Sat Dec 27 17:52:17 2003
+++ extproc_perl2/ep_package.sql.in	Mon Feb  9 09:51:04 2004
@@ -205,7 +205,8 @@
 		PARAMETERS (
 			CONTEXT,
 			RETURN INDICATOR BY REFERENCE,
-			param STRING
+			param STRING,
+			param INDICATOR short
 		);
 
 	-- eval arbitrary perl code
diff --exclude=CVS -Naur extproc_perl-1.99_06.orig/extproc_perl.c extproc_perl2/extproc_perl.c
--- extproc_perl-1.99_06.orig/extproc_perl.c	Sun Feb  1 17:03:23 2004
+++ extproc_perl2/extproc_perl.c	Thu Feb  5 17:48:42 2004
@@ -763,6 +763,7 @@
 		*ret_ind = OCI_IND_NOTNULL;
 	}
 	else {
+		res = NULL;
 		*ret_ind = OCI_IND_NULL;
 	}
 
@@ -787,13 +788,14 @@
 		*ret_ind = OCI_IND_NOTNULL;
 	}
 	else {
+		res = NULL;
 		*ret_ind = OCI_IND_NULL;
 	}
 
 	return res;
 }
 
-char *ora_perl_config(OCIExtProcContext *ctx, OCIInd *ret_ind, char *param, OCIInd *param_ind)
+char *ora_perl_config(OCIExtProcContext *ctx, OCIInd *ret_ind, char *param, OCIInd param_ind)
 {
 	EP_CONTEXT *c = &my_context;
 	char *res;
@@ -804,7 +806,7 @@
 
 	EP_DEBUGF(c, "IN ora_perl_config(%p)", ctx);
 
-	if (*param_ind == OCI_IND_NULL) {
+	if (param_ind == OCI_IND_NULL) {
 		ora_exception(c, "ora_perl_config: passed NULL parameter");
 		*ret_ind = OCI_IND_NULL;
 		return NULL;