PROTON-582: Added in missing is_float method to 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/f3264349 Tree: http://git-wip-us.apache.org/repos/asf/qpid-proton/tree/f3264349 Diff: http://git-wip-us.apache.org/repos/asf/qpid-proton/diff/f3264349 Branch: refs/heads/master Commit: f32643492ba6763d46caccc59752ce1fb64ced9e Parents: dfbd744 Author: Darryl L. Pierce <mcpie...@gmail.com> Authored: Tue Mar 17 09:04:31 2015 -0400 Committer: Darryl L. Pierce <mcpie...@gmail.com> Committed: Tue Mar 17 09:08:19 2015 -0400 ---------------------------------------------------------------------- examples/perl/messenger/send.pl | 2 +- proton-c/bindings/perl/lib/qpid/proton/Data.pm | 4 ++-- proton-c/bindings/perl/lib/qpid/proton/Message.pm | 2 +- proton-c/bindings/perl/lib/qpid/proton/utils.pm | 7 +++++++ 4 files changed, 11 insertions(+), 4 deletions(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/qpid-proton/blob/f3264349/examples/perl/messenger/send.pl ---------------------------------------------------------------------- diff --git a/examples/perl/messenger/send.pl b/examples/perl/messenger/send.pl index b622b68..27893ce 100755 --- a/examples/perl/messenger/send.pl +++ b/examples/perl/messenger/send.pl @@ -59,7 +59,7 @@ foreach (@messages) { $msg->set_address($address); $msg->set_subject($subject); - $msg->set_content($content); + $msg->set_body($content); # try a few different body types my $body_type = int(rand(6)); $msg->set_property("sent", "" . localtime(time)); http://git-wip-us.apache.org/repos/asf/qpid-proton/blob/f3264349/proton-c/bindings/perl/lib/qpid/proton/Data.pm ---------------------------------------------------------------------- diff --git a/proton-c/bindings/perl/lib/qpid/proton/Data.pm b/proton-c/bindings/perl/lib/qpid/proton/Data.pm index 156e09a..494a8f3 100644 --- a/proton-c/bindings/perl/lib/qpid/proton/Data.pm +++ b/proton-c/bindings/perl/lib/qpid/proton/Data.pm @@ -1165,8 +1165,8 @@ sub put_list_helper { $self->enter; for my $value (@{$array}) { - if (qpid::proton::is_num($value)) { - if (qpid::proton::is_float($value)) { + if (qpid::proton::utils::is_num($value)) { + if (qpid::proton::utils::is_float($value)) { $self->put_float($value); } else { $self->put_int($value); http://git-wip-us.apache.org/repos/asf/qpid-proton/blob/f3264349/proton-c/bindings/perl/lib/qpid/proton/Message.pm ---------------------------------------------------------------------- diff --git a/proton-c/bindings/perl/lib/qpid/proton/Message.pm b/proton-c/bindings/perl/lib/qpid/proton/Message.pm index b36caa7..0251b89 100644 --- a/proton-c/bindings/perl/lib/qpid/proton/Message.pm +++ b/proton-c/bindings/perl/lib/qpid/proton/Message.pm @@ -438,7 +438,7 @@ sub set_body { # be, which is going to be a best guess if (!defined($body_type)) { if (qpid::proton::utils::is_num($body)) { - if (qpid::proton::is_float($body)) { + if (qpid::proton::utils::is_float($body)) { $body_type = qpid::proton::FLOAT; } else { $body_type = qpid::proton::INT; http://git-wip-us.apache.org/repos/asf/qpid-proton/blob/f3264349/proton-c/bindings/perl/lib/qpid/proton/utils.pm ---------------------------------------------------------------------- diff --git a/proton-c/bindings/perl/lib/qpid/proton/utils.pm b/proton-c/bindings/perl/lib/qpid/proton/utils.pm index 5652535..0ab4e3e 100644 --- a/proton-c/bindings/perl/lib/qpid/proton/utils.pm +++ b/proton-c/bindings/perl/lib/qpid/proton/utils.pm @@ -28,4 +28,11 @@ sub is_num { $_[0] ^ $_[0] ? 0 : 1 } +sub is_float { + my $val = $_[0]; + + return 1 if ($val - int($val)); + return 0; +} + 1; --------------------------------------------------------------------- To unsubscribe, e-mail: commits-unsubscr...@qpid.apache.org For additional commands, e-mail: commits-h...@qpid.apache.org
