From: Chris Nehren <apeiron@cpan.org>
Date: Sun, 4 Sep 2011 05:13:04 +0000 (-0400)
Subject: error checking for tying the aliases file
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7636373dc6886c66045c9e5d714d12090d96288f;p=p5sagit%2FPromulger.git

error checking for tying the aliases file
---

diff --git a/lib/Promulger/List.pm b/lib/Promulger/List.pm
index 025b87d..354e8f7 100644
--- a/lib/Promulger/List.pm
+++ b/lib/Promulger/List.pm
@@ -76,7 +76,8 @@ sub setup {
   croak "${name} already a known list" if $self->resolve($name);
   my $path = find_path_for($name);
 
-  my $tie = tie my @aliases, 'Tie::File', $config->{aliases};
+  my $tie = tie my @aliases, 'Tie::File', $config->{aliases} 
+    or die "cannot tie " . $config->{aliases} . ": $!";
   $tie->flock;
   my @list_aliases = ($name, "${name}-request");