error checking for tying the aliases file

[p5sagit/Promulger.git] / lib / Promulger / List.pm

diff --git a/lib/Promulger/List.pm b/lib/Promulger/List.pm
index 025b87d..354e8f7 100644 (file)
--- 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");