NO-JIRA: Fix how Perl uses the utils module.
Project: http://git-wip-us.apache.org/repos/asf/qpid-proton/repo Commit: http://git-wip-us.apache.org/repos/asf/qpid-proton/commit/02f1c577 Tree: http://git-wip-us.apache.org/repos/asf/qpid-proton/tree/02f1c577 Diff: http://git-wip-us.apache.org/repos/asf/qpid-proton/diff/02f1c577 Branch: refs/heads/examples Commit: 02f1c5772128a4ca1c0d176f98e4b425a88b5e71 Parents: 66150aa Author: Darryl L. Pierce <[email protected]> Authored: Tue Nov 18 11:43:43 2014 -0500 Committer: Darryl L. Pierce <[email protected]> Committed: Tue Nov 18 17:13:31 2014 -0500 ---------------------------------------------------------------------- proton-c/bindings/perl/lib/qpid/proton/Message.pm | 2 +- proton-c/bindings/perl/lib/qpid/proton/utils.pm | 2 +- proton-c/bindings/perl/lib/qpid_proton.pm | 1 + 3 files changed, 3 insertions(+), 2 deletions(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/qpid-proton/blob/02f1c577/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 49aeccd..a46717a 100644 --- a/proton-c/bindings/perl/lib/qpid/proton/Message.pm +++ b/proton-c/bindings/perl/lib/qpid/proton/Message.pm @@ -448,7 +448,7 @@ sub set_body { # if no body type was defined, then attempt to infer what it should # be, which is going to be a best guess if (!defined($body_type)) { - if (qpid::proton::is_num($body)) { + if (qpid::proton::utils::is_num($body)) { if (qpid::proton::is_float($body)) { $body_type = qpid::proton::FLOAT; } else { http://git-wip-us.apache.org/repos/asf/qpid-proton/blob/02f1c577/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 75af498..5652535 100644 --- a/proton-c/bindings/perl/lib/qpid/proton/utils.pm +++ b/proton-c/bindings/perl/lib/qpid/proton/utils.pm @@ -17,7 +17,7 @@ # under the License. # -package qpid::proton; +package qpid::proton::utils; sub is_num { my $val = $_[0]; http://git-wip-us.apache.org/repos/asf/qpid-proton/blob/02f1c577/proton-c/bindings/perl/lib/qpid_proton.pm ---------------------------------------------------------------------- diff --git a/proton-c/bindings/perl/lib/qpid_proton.pm b/proton-c/bindings/perl/lib/qpid_proton.pm index de4e224..cbee98d 100644 --- a/proton-c/bindings/perl/lib/qpid_proton.pm +++ b/proton-c/bindings/perl/lib/qpid_proton.pm @@ -31,6 +31,7 @@ use qpid::proton::Messenger; use qpid::proton::Message; use qpid::proton; +use qpid::proton::utils; package qpid_proton; --------------------------------------------------------------------- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
