X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FIPC%2FMorseSignals%2FReceiver.pm;h=09fceacf44e58f4485786eaa8c12e56d80588da4;hb=964b2609a32772c89d0fc8d2567c6e089fb7c3be;hp=a72eec7472c7f70b2e1cbe51122463ca11b7d5a9;hpb=21ecaad0abc3afdc379efa498a0fdad4ff0e2000;p=perl%2Fmodules%2FIPC-MorseSignals.git diff --git a/lib/IPC/MorseSignals/Receiver.pm b/lib/IPC/MorseSignals/Receiver.pm index a72eec7..09fceac 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; use Bit::MorseSignals::Receiver; -use base qw/Bit::MorseSignals::Receiver/; +use base qw; =head1 NAME @@ -20,6 +20,12 @@ Version 0.16 our $VERSION = '0.16'; +=head1 WARNING + +Due to the POSIX signals specification (which I wasn't aware of at the time I wrote this module), this module is by nature completely unreliable and will never work properly. +It is therefore B. +Please don't use it (if you were actually crazy enough to use it). + =head1 SYNOPSIS use IPC::MorseSignals::Receiver; @@ -31,7 +37,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 receiver. +This module installs C<< $SIG{qw} >> handlers and forwards the bits received to an underlying L receiver. =head1 METHODS @@ -51,7 +57,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} = (sub { $self->push(0) }, sub { $self->push(1) }); return $self; } @@ -98,7 +104,7 @@ You can find documentation for this module with the perldoc command. =head1 COPYRIGHT & LICENSE -Copyright 2007,2008,2013 Vincent Pit, all rights reserved. +Copyright 2007,2008,2013,2017 Vincent Pit, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.