PROTON-471: Removed the bool mapping for arguments in the Perl bindings.
Project: http://git-wip-us.apache.org/repos/asf/qpid-proton/repo Commit: http://git-wip-us.apache.org/repos/asf/qpid-proton/commit/28bbd8bc Tree: http://git-wip-us.apache.org/repos/asf/qpid-proton/tree/28bbd8bc Diff: http://git-wip-us.apache.org/repos/asf/qpid-proton/diff/28bbd8bc Branch: refs/heads/master Commit: 28bbd8bc699600e8ac5f2f29e3804d9528e7a711 Parents: ad96b59 Author: Darryl L. Pierce <[email protected]> Authored: Thu Dec 11 10:39:16 2014 -0500 Committer: Darryl L. Pierce <[email protected]> Committed: Thu Dec 18 08:16:46 2014 -0500 ---------------------------------------------------------------------- proton-c/bindings/perl/perl.i | 33 --------------------------------- 1 file changed, 33 deletions(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/qpid-proton/blob/28bbd8bc/proton-c/bindings/perl/perl.i ---------------------------------------------------------------------- diff --git a/proton-c/bindings/perl/perl.i b/proton-c/bindings/perl/perl.i index e06980a..26ca9d5 100644 --- a/proton-c/bindings/perl/perl.i +++ b/proton-c/bindings/perl/perl.i @@ -13,39 +13,6 @@ %include <cstring.i> -%typemap(in) bool -{ - if(!$input) - { - $1 = false; - } - else if((IV)$input == 0) - { - $1 = false; - } - else - { - $1 = true; - } -} - -%typemap(out) bool -{ - SV* obj = sv_newmortal(); - - if($1) - { - sv_setiv(obj, (IV)1); - } - else - { - sv_setsv(obj, &PL_sv_undef); - } - - $result = obj; - argvi++; -} - %typemap(in) pn_atom_t { if(!$input) --------------------------------------------------------------------- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
