X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F22-emitter-utf8.t;h=6c185416d3847d2515d8236a604b9fdd7b6c60f1;hb=16fc0df47643288d3229f8671e339d89b159f155;hp=575c66a6885b2d2499d2765bb0c983c0477ccbe5;hpb=d4cad38280f090c2057f4df1d6ef1fce88ccbcc6;p=perl%2Fmodules%2FBit-MorseSignals.git

diff --git a/t/22-emitter-utf8.t b/t/22-emitter-utf8.t
index 575c66a..6c18541 100644
--- a/t/22-emitter-utf8.t
+++ b/t/22-emitter-utf8.t
@@ -7,10 +7,10 @@ use utf8;
 
 use Test::More 'no_plan';
 
-use Bit::MorseSignals qw/BM_DATA_PLAIN/;
+use Bit::MorseSignals qw<BM_DATA_PLAIN>;
 use Bit::MorseSignals::Emitter;
 
-my $deuce = new Bit::MorseSignals::Emitter utf8 => 'DO WANT';
+my $deuce = Bit::MorseSignals::Emitter->new(utf8 => 'DO WANT');
 
 sub test_msg {
  my ($desc, $exp) = @_;