Get rid of the indirect notation

[perl/modules/Bit-MorseSignals.git] / t / 31-receiver-plain.t

diff --git a/t/31-receiver-plain.t b/t/31-receiver-plain.t
index 899f3f2d90773933d7c2b3eed5d69e4c08f5fd5f..279809574bc04715e5fc206d099e562ab48aa0c2 100644 (file)
--- a/t/31-receiver-plain.t
+++ b/t/31-receiver-plain.t
@@ -9,7 +9,7 @@ use Bit::MorseSignals::Receiver;
 
 my $hlagh;
 
-my $pants = new Bit::MorseSignals::Receiver done => sub { $hlagh = $_[1] };
+my $pants = Bit::MorseSignals::Receiver->new(done => sub { $hlagh = $_[1] });
 
 my $msg  = 'x';
 my @bits = split //, '111110' . '000' . '00011110' . '011111';