X-Git-Url: https://ruderich.org/simon/gitweb/?p=fcscs%2Ffcscs.git;a=blobdiff_plain;f=bin%2Ffcscs;fp=bin%2Ffcscs;h=971cb8098e3d46bc47a455fcfdcb4cdbe1a2d314;hp=c4a9b05969ea907a7a69e00cc4ade1f14883a700;hb=8694357ab0e199a30166bf994a614ea0650a4981;hpb=174f816f84386eb2366bbc8d3eaf2c0300d454d6

diff --git a/bin/fcscs b/bin/fcscs
index c4a9b05..971cb80 100755
--- 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;