use $screen->die instead of die when loading user config
authorSimon Ruderich <simon@ruderich.org>
Mon, 1 Feb 2016 08:39:55 +0000 (09:39 +0100)
committerSimon Ruderich <simon@ruderich.org>
Mon, 1 Feb 2016 08:39:55 +0000 (09:39 +0100)
die does not use Curses to display the error message. Thus keeping the
user to wonder what happened when fcscs just quits.

bin/fcscs

index c4a9b05969ea907a7a69e00cc4ade1f14883a700..971cb8098e3d46bc47a455fcfdcb4cdbe1a2d314 100755 (executable)
--- a/bin/fcscs
+++ b/bin/fcscs
@@ -1449,10 +1449,10 @@ package Fcscs {
         }
         # Make sure the file is not writable by other users. Doesn't handle
         # ACLs and see comment above about race conditions.
-        my @stat = stat $path or die $!;
+        my @stat = stat $path or $screen->die("Config '$decoded': $!");
         my $mode = $stat[2];
         if (($mode & Fcntl::S_IWGRP) or ($mode & Fcntl::S_IWOTH)) {
-            die "Config '$decoded' must not be writable by other users.";
+            $screen->die("Config '$decoded' must not be writable by other users.");
         }
 
         my $result = do $path;