diff options
Diffstat (limited to 'cpp/bindings/qpid/perl/perl.i')
-rw-r--r-- | cpp/bindings/qpid/perl/perl.i | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cpp/bindings/qpid/perl/perl.i b/cpp/bindings/qpid/perl/perl.i index 0d118ae0fb..4dc2665c2b 100644 --- a/cpp/bindings/qpid/perl/perl.i +++ b/cpp/bindings/qpid/perl/perl.i @@ -27,7 +27,7 @@ $action } catch (qpid::messaging::MessagingException& mex) { - Perl_croak(aTHX_ mex.what()); + Perl_croak(aTHX_ "%s", mex.what()); } } |