Fix "wide character in print"

samples/conference_lister

@@ -8,6 +8,8 @@ use AnyEvent::XMPP::Ext::DataForm;
 use Storable;
 use XML::DOM::XPath;
 
+binmode STDOUT, ':encoding(UTF-8)';
+
 our $J = AnyEvent->condvar;
 our $datafile = "conferences.stor";
 our $data = {};

samples/disco_test

@@ -6,6 +6,8 @@ use AnyEvent::XMPP::Client;
 use AnyEvent::XMPP::Ext::Disco;
 use AnyEvent::XMPP::Ext::DataForm;
 
+binmode STDOUT, ':encoding(UTF-8)';
+
 my $j  = AnyEvent->condvar;
 my $cl = AnyEvent::XMPP::Client->new (debug => 1);
 my $d  = AnyEvent::XMPP::Ext::Disco->new;

samples/disco_version

@@ -6,6 +6,8 @@ use AnyEvent::XMPP::Client;
 use AnyEvent::XMPP::Ext::Version;
 use POSIX qw/strftime/;
 
+binmode STDOUT, ':encoding(UTF-8)';
+
 my ($jid,$pass) = qw/[email protected] test/;
 ($jid, $pass) = @ARGV if @ARGV;
 

samples/limit_searcher

@@ -6,6 +6,8 @@ use AnyEvent::XMPP::Client;
 use AnyEvent::XMPP::Util qw/simxml/;
 use AnyEvent::XMPP::Ext::Disco;
 
+binmode STDOUT, ':encoding(UTF-8)';
+
 my $j = AnyEvent->condvar;
 my $cl = AnyEvent::XMPP::Client->new;
 

samples/room_lister

@@ -9,6 +9,8 @@ use Storable;
 use XML::DOM::XPath;
 use EVQ;
 
+binmode STDOUT, ':encoding(UTF-8)';
+
 our $datafile = "room_data.stor";
 our $data = {};
 

samples/send_bad_namespace

@@ -4,6 +4,8 @@ use utf8;
 use AnyEvent;
 use AnyEvent::XMPP::Client;
 
+binmode STDOUT, ':encoding(UTF-8)';
+
 my $j = AnyEvent->condvar;
 my $cl = AnyEvent::XMPP::Client->new (debug => 1);
 $cl->add_account ('[email protected]', 'test');

samples/sendmsg

@@ -4,6 +4,8 @@ use utf8;
 use AnyEvent;
 use AnyEvent::XMPP::IM::Connection;
 
+binmode STDOUT, ':encoding(UTF-8)';
+
 unless (@ARGV >= 3) { die "sendmsg <account jid> <password> <destination jid>\n" }
 
 my $msg  = do { local $/; <STDIN> };

samples/simple_bot

@@ -6,6 +6,8 @@ use AnyEvent::XMPP::Client;
 use AnyEvent::XMPP::Ext::Disco;
 use AnyEvent::XMPP::Ext::MUC;
 
+binmode STDOUT, ':encoding(UTF-8)';
+
 my $j = AnyEvent->condvar;
 my $cl = AnyEvent::XMPP::Client->new (debug => 1);
 $cl->add_account ('[email protected]', 'test');

samples/simple_example_1

@@ -5,6 +5,8 @@ use AnyEvent::Impl::Tk;
 use AnyEvent;
 use AnyEvent::XMPP::Client;
 
+binmode STDOUT, ':encoding(UTF-8)';
+
 my $j = AnyEvent->condvar;
 my $cl = AnyEvent::XMPP::Client->new (debug => 1);
 $cl->add_account ('[email protected]', 'test');

samples/simple_oob_retriever

@@ -4,7 +4,9 @@ use utf8;
 use AnyEvent;
 use AnyEvent::XMPP::Client;
 use AnyEvent::XMPP::Ext::OOB;
-use AnyEvent::XMPP::Ext::Disco;
+use AnyEvent::XMPP::Ext::Disco;  
+
+binmode STDOUT, ':encoding(UTF-8)';
 
 my $j  = AnyEvent->condvar;
 my $cl = AnyEvent::XMPP::Client->new (debug => 1);

samples/simple_register_example

@@ -6,6 +6,8 @@ use AnyEvent::XMPP::Client;
 use AnyEvent::XMPP::Ext::Registration;
 use AnyEvent::XMPP::Util qw/split_jid/;
 
+binmode STDOUT, ':encoding(UTF-8)';
+
 sub result {
    my ($reg, $ok, $error, $form, $comment) = @_;
    $comment ||= 'REGISTERED!';