turn utf8 off before pushing to redis

[MQR.git] / scripts / mqr-xmpp-client.pl

diff --git a/scripts/mqr-xmpp-client.pl b/scripts/mqr-xmpp-client.pl
index 3d01d51..ba191c2 100755 (executable)
--- a/scripts/mqr-xmpp-client.pl
+++ b/scripts/mqr-xmpp-client.pl
@@ -65,6 +65,7 @@ $cl->reg_cb (
 warn "# contacts ",dump($contacts);
 
                my $channel = join(' ', 'channel', $msg->from);
+               Encode::_utf8_off($body);
                $pub->publish( $channel, $body );
                warn "#X<< ",dump($channel, $body);