[SCM] libmessage-passing-perl Debian packaging branch, master, updated. debian/0.111-3-14-g44f6e88

[Tomas Doran]

The following commit has been merged in the master branch:
commit bf35ababb033cfd84d08abe612922b74d90ef44f
Author: Tomas Doran <bobtfish at bobtfish.net>
Date:   Mon Jun 11 13:51:59 2012 -0400

    Cleanups in file tailer

diff --git a/lib/Message/Passing/Input/FileTail.pm b/lib/Message/Passing/Input/FileTail.pm
index 2eb4e88..097c695 100644
--- a/lib/Message/Passing/Input/FileTail.pm
+++ b/lib/Message/Passing/Input/FileTail.pm
@@ -1,7 +1,6 @@
 package Message::Passing::Input::FileTail;
 use Moose;
 use AnyEvent;
-use Try::Tiny;
 use Scalar::Util qw/ weaken /;
 use namespace::autoclean;
 
@@ -28,10 +27,10 @@ has tailer_pid => (
 sub _build_tail_handle {
     my $self = shift;
     weaken($self);
-    my $r;
-    my $child_pid = open($r, "-|", "tail", "-F", $self->filename)
-       // die "can't fork: $!";
-    AnyEvent->io (
+    die("Cannot open filename '" . $self->filename . "'") unless -r $self->filename;
+    my $child_pid = open(my $r, "-|", "tail", "-F", $self->filename)
+       || die "can't fork: $!";
+    AnyEvent->io(
         fh => $r,
         poll => "r",
         cb => sub {

-- 
libmessage-passing-perl Debian packaging