nntpid: Chiark::NNTP: spot if cat /etc/nntpserver fails

[chiark-utils.git] / scripts / Chiark / NNTP.pm

diff --git a/scripts/Chiark/NNTP.pm b/scripts/Chiark/NNTP.pm
index f31652e739df121d8201c69df81e06e289e91e2d..4ccfa4a4ced4d44b5ab4533b3af2d5133c25647f 100644 (file)
--- a/scripts/Chiark/NNTP.pm
+++ b/scripts/Chiark/NNTP.pm
@@ -54,7 +54,9 @@ sub cnntp_connect ($) {
 
     my $ns=$ENV{'NNTPSERVER'};
     if (!defined $ns or !length $ns) {
+       $? = 0;
        $ns = `cat /etc/nntpserver`;
+       die if $?;
        chomp($ns);
     }
     my $port = (getservbyname("nntp", "tcp"))[2];