You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@qpid.apache.org by gs...@apache.org on 2014/11/26 21:05:58 UTC
[11/35] qpid-proton git commit: NO-JIRA: Fix how Perl uses the utils
module.
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 <mc...@gmail.com>
Authored: Tue Nov 18 11:43:43 2014 -0500
Committer: Darryl L. Pierce <mc...@gmail.com>
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: commits-unsubscribe@qpid.apache.org
For additional commands, e-mail: commits-help@qpid.apache.org