X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FIPC-MorseSignals.git;a=blobdiff_plain;f=t%2Flib%2FIPC%2FMorseSignals%2FTestSuite.pm;h=31996bad2a39c01ae1ba8d3d8fd032d96c9f0fff;hp=5b95eef1ccba4c1bba96df6ceec1b220393b885c;hb=52788ca36ac91ee06506c5574a3ce5a6bea9ad81;hpb=1c8990bbb16597a15918c75806e440b82c07cb0d diff --git a/t/lib/IPC/MorseSignals/TestSuite.pm b/t/lib/IPC/MorseSignals/TestSuite.pm index 5b95eef..31996ba 100644 --- a/t/lib/IPC/MorseSignals/TestSuite.pm +++ b/t/lib/IPC/MorseSignals/TestSuite.pm @@ -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) {