Importing IPC-MorseSignals-0.12.tar.gz

diff --git a/Changes b/Changes
index 1eddd429f312c38de6a21b166dd5fe1fa46558da..26d69967ca9f28a063b830dd524fe9330c98f15f 100644 (file)
--- 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 66165980a6d1cc6f10c677f077bf6ad224322663..bade59b4424d6399d2968dd0f70f3ab46564cd8a 100644 (file)
--- 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 175227533cc41a6f85f7d197ea2e4c6de9287862..a24f63f66ca1cb74c80efdfc884492046afcc386 100644 (file)
--- 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 120b75c31e4c662330a9f3bb894b0ee19f490e1c..b1ad4068b04583348e9a1b6f946f3ff0b80feeac 100644 (file)
--- 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 43d3f1d0540c4851f91375815bbeffcb902134ae..4433afdbecb275b1f6db9cf923ec59ec6dc6df2a 100644 (file)
--- 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 a45735cabc97e55f619f55276f9355ecd52de47f..bb02ac8e7da60e63dbb453fa6980aa1561e24745 100644 (file)
--- 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 78d61d49c406abe84a8f82afa83402176f9e3067..c6e83069233f4d203011ac7fb90806ec793b8f84 100644 (file)
--- 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