X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FIPC-MorseSignals.git;a=blobdiff_plain;f=lib%2FIPC%2FMorseSignals%2FReceiver.pm;fp=lib%2FIPC%2FMorseSignals%2FReceiver.pm;h=96d04201a1e0b288fc9a855010c1afad1b6a7ff0;hp=a72eec7472c7f70b2e1cbe51122463ca11b7d5a9;hb=cbd0d5635c26b4203e32f543f4a3b323a6875b41;hpb=ff9f96877eecbded08b6318b42de4a673881473a

diff --git a/lib/IPC/MorseSignals/Receiver.pm b/lib/IPC/MorseSignals/Receiver.pm
index a72eec7..96d0420 100644
--- a/lib/IPC/MorseSignals/Receiver.pm
+++ b/lib/IPC/MorseSignals/Receiver.pm
@@ -3,10 +3,10 @@ package IPC::MorseSignals::Receiver;
 use strict;
 use warnings;
 
-use Carp qw/croak/;
+use Carp qw<croak>;
 
 use Bit::MorseSignals::Receiver;
-use base qw/Bit::MorseSignals::Receiver/;
+use base qw<Bit::MorseSignals::Receiver>;
 
 =head1 NAME
 
@@ -31,7 +31,7 @@ our $VERSION = '0.16';
 
 =head1 DESCRIPTION
 
-This module installs C<$SIG{qw/USR1 USR2/}> handlers and forwards the bits received to an underlying L<Bit::MorseSignals> receiver.
+This module installs C<< $SIG{qw<USR1 USR2>} >> handlers and forwards the bits received to an underlying L<Bit::MorseSignals> receiver.
 
 =head1 METHODS
 
@@ -51,7 +51,7 @@ sub new {
  croak 'The first argument must be a hash reference to the %SIG hash'
   unless $sig and ref $sig eq 'HASH';
  my $self = bless $class->SUPER::new(@_), $class;
- @{$sig}{qw/USR1 USR2/} = (sub { $self->push(0) }, sub { $self->push(1) });
+ @{$sig}{qw<USR1 USR2>} = (sub { $self->push(0) }, sub { $self->push(1) });
  return $self;
 }