Index: trunk/zoo-kernel/service_internal_perl.c
===================================================================
--- trunk/zoo-kernel/service_internal_perl.c	(revision 46)
+++ trunk/zoo-kernel/service_internal_perl.c	(revision 47)
@@ -28,5 +28,4 @@
 static PerlInterpreter *my_perl;
 
-EXTERN_C 
 
 void xs_init(pTHX)
@@ -45,5 +44,5 @@
 	map * tmp_m = m;
 	do {
-		printf("map name %s  value %s \n",m->name,m->value);
+		//printf("map name %s  value %s \n",m->name,m->value);
 
 		if ( NULL == hv_store( tmp, tmp_m->name, strlen(tmp_m->name), sv_2mortal(newSVpv(tmp_m->value, strlen(tmp_m->value))), 0) ) {
@@ -59,5 +58,5 @@
 	HV * tmp = *hash_maps;
 	if (m != NULL) {
-		printf("maps name %s \n",m->name);
+		//printf("maps name %s \n",m->name);
 		HV* hash_m = (HV *)sv_2mortal((SV *)newHV());
 		if (map_to_hash(m->content,&hash_m) != 0){
@@ -83,5 +82,5 @@
 	HE * he = hv_iternext(hh);
 	while (he != NULL){
-		printf("key : %s  value : %s \n",HeKEY(he),(char *)SvRV(HeVAL(he)));
+		//fprintf(stderr,"key : %s  value : %s \n",HeKEY(he),(char *)SvRV(HeVAL(he)));
 		tmp->name = HeKEY(he);
 		tmp->value = (char *)SvRV(HeVAL(he));
@@ -111,5 +110,5 @@
 	map *mm;
 	while (he != NULL) {
-		printf("key ===> %s \n",HeKEY(he));
+		//fprintf(stderr,"key ===> %s \n",HeKEY(he));
 		tmp->name = HeKEY(he);
 		hash_to_map((HV *) SvRV(HeVAL(he)),&mm);
@@ -162,40 +161,41 @@
 	res = POPi;
 	hash_to_maps(h_real_outputs,real_outputs);
+	//dumpMaps(*real_outputs);
 	PUTBACK;
     	FREETMPS;
     	LEAVE;
-	return res;
-}
-
-	
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+	return SERVICE_SUCCEEDED;
+}
+
+	
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+