Get rid of the indirect notation

[perl/modules/Bit-MorseSignals.git] / t / 22-emitter-utf8.t

diff --git a/t/22-emitter-utf8.t b/t/22-emitter-utf8.t
index 575c66a6885b2d2499d2765bb0c983c0477ccbe5..9647ecfa69122e3ecf452ea1bdb770a33dde85f9 100644 (file)
--- a/t/22-emitter-utf8.t
+++ b/t/22-emitter-utf8.t
@@ -10,7 +10,7 @@ use Test::More 'no_plan';
 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) = @_;