X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2Flib%2FIPC%2FMorseSignals%2FTestSuite.pm;h=74568a353d4d3bee1e5af5707b8537c830a890a6;hb=cbd0d5635c26b4203e32f543f4a3b323a6875b41;hp=5b95eef1ccba4c1bba96df6ceec1b220393b885c;hpb=0b4f6d24128d9d60c3f8a5010e43bdfd9de7b655;p=perl%2Fmodules%2FIPC-MorseSignals.git diff --git a/t/lib/IPC/MorseSignals/TestSuite.pm b/t/lib/IPC/MorseSignals/TestSuite.pm index 5b95eef..74568a3 100644 --- a/t/lib/IPC/MorseSignals/TestSuite.pm +++ b/t/lib/IPC/MorseSignals/TestSuite.pm @@ -4,14 +4,14 @@ use strict; use warnings; use Data::Dumper; -use POSIX qw/pause SIGKILL EXIT_FAILURE/; +use POSIX qw; use IPC::MorseSignals::Emitter; use IPC::MorseSignals::Receiver; -use base qw/Exporter/; +use base qw; -our @EXPORT_OK = qw/try bench init cleanup/; +our @EXPORT_OK = qw; $Data::Dumper::Indent = 0; @@ -93,7 +93,7 @@ sub try { my $speed = 2 ** 10; my $dump = Dumper($msg); 1 while chomp $dump; - $dump =~ s/\n\r/ /g; + $dump =~ s/\n\r/ /g; $snd->reset; my $len = 0; while (($speed /= 2) >= 1) {