X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FIPC-MorseSignals.git;a=blobdiff_plain;f=t%2Flib%2FIPC%2FMorseSignals%2FTestSuite.pm;h=5b95eef1ccba4c1bba96df6ceec1b220393b885c;hp=570fa2762f2254c2304146dbbacd7be8b7e8872f;hb=0b4f6d24128d9d60c3f8a5010e43bdfd9de7b655;hpb=20477798fb2d66f61ad45d4645f261b9fbdc7e4a

diff --git a/t/lib/IPC/MorseSignals/TestSuite.pm b/t/lib/IPC/MorseSignals/TestSuite.pm
index 570fa27..5b95eef 100644
--- a/t/lib/IPC/MorseSignals/TestSuite.pm
+++ b/t/lib/IPC/MorseSignals/TestSuite.pm
@@ -34,11 +34,11 @@ sub spawn {
   close $rdr or die "close() failed: $!";
   select $wtr;
   $| = 1;
-  my $rcv = new IPC::MorseSignals::Receiver \%SIG, done => sub {
+  my $rcv = IPC::MorseSignals::Receiver->new(\%SIG, done => sub {
    my $msg = Dumper($_[1]);
    $msg =~ s/\n\r/ /g;
    print $wtr "$msg\n";
-  };
+  });
   $SIG{__WARN__} = sub {
    my $warn = join '', @_;
    $warn =~ s/\n\r/ /g;
@@ -86,7 +86,7 @@ sub init {
 
 sub cleanup { slaughter }
 
-my $snd = new IPC::MorseSignals::Emitter;
+my $snd = IPC::MorseSignals::Emitter->new;
 
 sub try {
  my ($msg) = @_;