--- trunk/Nos.pm 2005/08/02 19:41:28 70 +++ trunk/Nos.pm 2005/08/22 19:25:24 71 @@ -699,7 +699,7 @@ =head2 _add_aliases -Add or update alias in C (or equivavlent) file for selected list +Add or update alias in C (or equivalent) file for selected list my $ok = $nos->add_aliases( list => 'My list', @@ -735,6 +735,8 @@ chmod 0777, $aliases || warn "can't change permission to 0777"; } + die "FATAL: aliases file $aliases is not writable\n" unless (-w $aliases); + my $a = new Mail::Alias($aliases) || croak "can't open aliases file $aliases: $!"; my $target = '';