--- loncom/homework/caparesponse/capa.i	2004/03/12 21:06:19	1.3
+++ loncom/homework/caparesponse/capa.i	2004/03/13 00:23:27	1.4
@@ -3,7 +3,7 @@
 
 %}
 
-%typemap(perl5,in) char** reterror (char** cvalue) {
+%typemap(perl5,in) char** reterror (char* cvalue) {
   SV* tempsv;
   if (!SvROK($source)) {
     croak("expected a reference\n");
@@ -13,9 +13,8 @@
     croak("expected a double reference\n");
   }
   int len;
-  char *temp=SvPV(tempsv,len);
-  cvalue = &temp;
-  $target = cvalue;
+  cvalue = SvPV(tempsv,len);
+  $target = &cvalue;
 }
 
 %typemap(perl5,argout) char ** reterror {