From: Vincent Pit <vince@profvince.com>
Date: Sun, 29 Jun 2008 16:37:14 +0000 (+0200)
Subject: Importing IPC-MorseSignals-0.12.tar.gz
X-Git-Tag: v0.12^0
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FIPC-MorseSignals.git;a=commitdiff_plain;h=90d2b0db8abb64d3c16d674091938f8c65e9caac

Importing IPC-MorseSignals-0.12.tar.gz
---

diff --git a/Changes b/Changes
index 1eddd42..26d6996 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for IPC-MorseSignals
 
+0.12    2008-03-09 10:20 UTC
+        + Doc : POD tweaks.
+        + Fix : Correct Makefile.PL die messages.
+
 0.11    2008-03-05 21:05 UTC
         + Doc : POD tweaks.
         + Fix : Bit::MorseSignals is a dependency now.
diff --git a/META.yml b/META.yml
index 6616598..bade59b 100644
--- a/META.yml
+++ b/META.yml
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                IPC-MorseSignals
-version:             0.11
+version:             0.12
 abstract:            Communicate between processes with Morse signals.
 license:             perl
 author:              
diff --git a/Makefile.PL b/Makefile.PL
index 1752275..a24f63f 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -4,8 +4,8 @@ use ExtUtils::MakeMaker;
 
 BEGIN {
  eval { require Config };
- die "You need the Config module to install this distribution, that's what happened" if $@;
- Config->import qw/%Config/;
+ die 'OS unsupported' if $@;
+ Config->import(qw/%Config/);
 }   
     
 my %sigs;
@@ -15,7 +15,7 @@ for (qw/USR1 USR2/) {
  print "Checking if you have SIG$_... ";
  unless (exists $sigs{$_}) {
   print "no\n";
-  die "Installation stops right here,";
+  die 'OS unsupported' if $@;
  }
  print "yes\n";
 }
diff --git a/README b/README
index 120b75c..b1ad406 100644
--- a/README
+++ b/README
@@ -2,7 +2,7 @@ NAME
     IPC::MorseSignals - Communicate between processes with Morse signals.
 
 VERSION
-    Version 0.11
+    Version 0.12
 
 SYNOPSIS
         # In the sender process
@@ -22,14 +22,13 @@ SYNOPSIS
          print STDERR "GOT $_[1]\n";
         };
 
-    head1 DESCRIPTION
-
+DESCRIPTION
     This module implements a rare form of IPC by sending Morse-like signals
     through "SIGUSR1" and "SIGUSR2". Both of those signals are used, so you
     won't be able to keep them for something else when you use this module.
 
     IPC::MorseSignals::Emitter is a base class for emitters ;
-    IPC::MorseSignals::Receiver is a base class for receivers ;
+    IPC::MorseSignals::Receiver is a base class for receivers.
 
     But, seriously, use something else for your IPC. :)
 
diff --git a/lib/IPC/MorseSignals.pm b/lib/IPC/MorseSignals.pm
index 43d3f1d..4433afd 100644
--- a/lib/IPC/MorseSignals.pm
+++ b/lib/IPC/MorseSignals.pm
@@ -9,11 +9,11 @@ IPC::MorseSignals - Communicate between processes with Morse signals.
 
 =head1 VERSION
 
-Version 0.11
+Version 0.12
 
 =cut
 
-our $VERSION = '0.11';
+our $VERSION = '0.12';
 
 =head1 SYNOPSIS
 
@@ -34,7 +34,7 @@ our $VERSION = '0.11';
      print STDERR "GOT $_[1]\n";
     };
 
-head1 DESCRIPTION
+=head1 DESCRIPTION
 
 This module implements a rare form of IPC by sending Morse-like signals through C<SIGUSR1> and C<SIGUSR2>. Both of those signals are used, so you won't be able to keep them for something else when you use this module.
 
@@ -42,7 +42,7 @@ This module implements a rare form of IPC by sending Morse-like signals through
 
 =item L<IPC::MorseSignals::Emitter> is a base class for emitters ;
 
-=item L<IPC::MorseSignals::Receiver> is a base class for receivers ;
+=item L<IPC::MorseSignals::Receiver> is a base class for receivers.
 
 =back
 
diff --git a/lib/IPC/MorseSignals/Emitter.pm b/lib/IPC/MorseSignals/Emitter.pm
index a45735c..bb02ac8 100644
--- a/lib/IPC/MorseSignals/Emitter.pm
+++ b/lib/IPC/MorseSignals/Emitter.pm
@@ -16,11 +16,11 @@ IPC::MorseSignals::Emitter - Base class for IPC::MorseSignals emitters.
 
 =head1 VERSION
 
-Version 0.11
+Version 0.12
 
 =cut
 
-our $VERSION = '0.11';
+our $VERSION = '0.12';
 
 =head1 SYNOPSIS
 
@@ -32,7 +32,7 @@ our $VERSION = '0.11';
 
 =head1 DESCRIPTION
 
-This module sends messages processed by a L<Bit::MorseSignal> emitter to another process as C<SIGUSR1> (for bits 0) and C<SIGUSR2> (for 1) signals.
+This module sends messages processed by an underlying L<Bit::MorseSignal> emitter to another process as a sequence of C<SIGUSR1> (for bits 0) and C<SIGUSR2> (for 1) signals.
 
 =cut
 
@@ -78,13 +78,13 @@ sub send {
  return unless defined $dest;
  my @dests = grep $_ > 0, ref $dest eq 'ARRAY' ? map int, grep defined, @$dest
                                                : int $dest;
+ return unless @dests;
  while (defined(my $bit = $self->pop)) {
   my @sigs = (SIGUSR1, SIGUSR2);
   my $d = $self->{delay} * 1_000_000;
   $d -= usleep $d while $d > 0;
   kill $sigs[$bit] => @dests;
  }
- return unless @dests;
 }
 
 =head2 C<< delay < $seconds > >>
diff --git a/lib/IPC/MorseSignals/Receiver.pm b/lib/IPC/MorseSignals/Receiver.pm
index 78d61d4..c6e8306 100644
--- a/lib/IPC/MorseSignals/Receiver.pm
+++ b/lib/IPC/MorseSignals/Receiver.pm
@@ -14,11 +14,11 @@ IPC::MorseSignals::Receiver - Base class for IPC::MorseSignals receivers.
 
 =head1 VERSION
 
-Version 0.11
+Version 0.12
 
 =cut
 
-our $VERSION = '0.11';
+our $VERSION = '0.12';
 
 =head1 SYNOPSIS
 
@@ -31,7 +31,7 @@ our $VERSION = '0.11';
 
 =head1 DESCRIPTION
 
-This module installs C<$SIG{qw/USR1 USR2/}> handlers and forwards the bits received to a L<Bit::MorseSignal> receiver.
+This module installs C<$SIG{qw/USR1 USR2/}> handlers and forwards the bits received to an underlying L<Bit::MorseSignals> receiver.
 
 =head1 METHODS