perl swig errorObj

[AndyColson]

I have perl somewhat like:

my $errObj = new mapscript::errorObj();
print $errObj->{message};

swig generates mapscript_wrap.c, generates this function:
XS(_wrap_errorObj_message_get) {
.... snip. ..
arg1 = (errorObj *)(argp1);
result = (char *)(char *) ((arg1)->message);
{
size_t size = 2048;
while (size && (result[size - 1] == '\0')) --size;
ST(argvi) = SWIG_FromCharPtrAndSize(result, size); argvi++ ;
}
... snip ...

This treats char[] as array, not as char*, and the perl code prints the error message and then lots of garbage.

I added this code to plmodule.i:

%typemap(out) char[ANY] {
$result = newSVpvn($1, strlen($1));
argvi++;
}

and it SEEMS to fix the problem. I'm new to swig and mapserver, so its just a guess. But its running, in production, right now.

[sdlime]

Fixed in master branch. Closing... Steve