version 1.4, 2004/03/13 00:23:27
|
version 1.5, 2004/03/22 01:43:28
|
Line 5
|
Line 5
|
|
|
%typemap(perl5,in) char** reterror (char* cvalue) { |
%typemap(perl5,in) char** reterror (char* cvalue) { |
SV* tempsv; |
SV* tempsv; |
|
int len; |
if (!SvROK($source)) { |
if (!SvROK($source)) { |
croak("expected a reference\n"); |
croak("expected a reference\n"); |
} |
} |
Line 12
|
Line 13
|
if ((!SvPOK(tempsv))) { |
if ((!SvPOK(tempsv))) { |
croak("expected a double reference\n"); |
croak("expected a double reference\n"); |
} |
} |
int len; |
|
cvalue = SvPV(tempsv,len); |
cvalue = SvPV(tempsv,len); |
$target = &cvalue; |
$target = &cvalue; |
} |
} |