diff options
author | Erez Geva <ErezGeva2@gmail.com> | 2022-05-11 01:10:12 +0200 |
---|---|---|
committer | Erez Geva <ErezGeva2@gmail.com> | 2022-05-11 01:10:12 +0200 |
commit | b88fe498cab92e18ad0a7b12e5ca9a49d4ac4ec0 (patch) | |
tree | 0d675ac3cf1e11fa33baa185733dd7fd88597a94 /Lib/perl5 | |
parent | 464d548d7173d964b028941400b7e6a740fb7f94 (diff) | |
download | swig-b88fe498cab92e18ad0a7b12e5ca9a49d4ac4ec0.tar.gz |
Fix argcargv.i in Perl5, Tcl, PHP
Add missing type map for type check.
Add testing of argcargv.i for Perl5, Tcl, PHP and Ruby.
Signed-off-by: Erez Geva <ErezGeva2@gmail.com>
Diffstat (limited to 'Lib/perl5')
-rw-r--r-- | Lib/perl5/argcargv.i | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Lib/perl5/argcargv.i b/Lib/perl5/argcargv.i index de7b626e0..5c3968e37 100644 --- a/Lib/perl5/argcargv.i +++ b/Lib/perl5/argcargv.i @@ -24,6 +24,11 @@ $2[i] = NULL; } +%typemap(typecheck, precedence=SWIG_TYPECHECK_STRING_ARRAY) (int ARGC, char **ARGV) { + AV *av = (AV *)SvRV($input); + $1 = SvTYPE(av) == SVt_PVAV; +} + %typemap(freearg) (int ARGC, char **ARGV) { if ($2 != NULL) { free((void *)$2); |