--- loncom/homework/caparesponse/capa.i	2004/03/13 00:23:27	1.4
+++ loncom/homework/caparesponse/capa.i	2004/03/22 01:43:28	1.5
@@ -5,6 +5,7 @@
 
 %typemap(perl5,in) char** reterror (char* cvalue) {
   SV* tempsv;
+  int len;
   if (!SvROK($source)) {
     croak("expected a reference\n");
   }
@@ -12,7 +13,6 @@
   if ((!SvPOK(tempsv))) {
     croak("expected a double reference\n");
   }
-  int len;
   cvalue = SvPV(tempsv,len);
   $target = &cvalue;
 }