Switch qw delimiters to <>

[perl/modules/IPC-MorseSignals.git] / t / lib / IPC / MorseSignals / TestSuite.pm

diff --git a/t/lib/IPC/MorseSignals/TestSuite.pm b/t/lib/IPC/MorseSignals/TestSuite.pm
index 5b95eef1ccba4c1bba96df6ceec1b220393b885c..74568a353d4d3bee1e5af5707b8537c830a890a6 100644 (file)
--- 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<pause SIGKILL EXIT_FAILURE>;
 
 use IPC::MorseSignals::Emitter;
 use IPC::MorseSignals::Receiver;
 
-use base qw/Exporter/;
+use base qw<Exporter>;
 
-our @EXPORT_OK = qw/try bench init cleanup/;
+our @EXPORT_OK = qw<try bench init cleanup>;
 
 $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) {