fnotify.pl: fix perlcritic errors

diff --git a/scripts/fnotify.pl b/scripts/fnotify.pl
index f53205e46b1ed04c6af494be4128884e8cbb8d54..42a7eb8721e68f01af4e176c24ecbe2f5200ca9d 100644 (file)
--- a/scripts/fnotify.pl
+++ b/scripts/fnotify.pl
@@ -1,4 +1,5 @@
 use strict;
+use warnings;
 use vars qw($VERSION %IRSSI);
 use Irssi;
 
@@ -73,9 +74,14 @@ sub hilight {
 sub filewrite {
        my ($text) = @_;
        # FIXME: there is probably a better way to get the irssi-dir...
-       open(FILE, ">>$ENV{HOME}/.irssi/fnotify");
+    my $fnfile = "$ENV{HOME}/.irssi/fnotify";
+    if (!open(FILE, ">>", $fnfile)) {
+        print_err("cannot open $fnfile: $!");
+    }
        print FILE $text . "\n";
-       close(FILE);
+    if (!close(FILE)) {
+        print_err("cannot close $fnfile: $!");
+    }
 }
 
 #