Use 3-arg open, and check return values

1 files changed, 22 insertions, 16 deletions

diff --git a/scripts/msg2notice.pl b/scripts/msg2notice.pl
index 33ddf3c..5dc3ba9 100644
--- a/scripts/msg2notice.pl
+++ b/scripts/msg2notice.pl
@@ -72,15 +72,18 @@ sub load_nicks {
     my($mask,$net,$channel,$flags,$flag);
     local(*FILE);
 
-	%nicks = ();
-    open FILE, "< $file";
-    while (<FILE>) {
-        add_nick($_);
-    }
-    close FILE;
-    $count = keys %nicks;
+    %nicks = ();
+    if (open FILE, "<", $file) {
+        while (<FILE>) {
+            add_nick($_);
+        }
+        close FILE;
+        $count = keys %nicks;
 
-    crap("Loaded $count nicks");
+        crap("Loaded $count nicks");
+    } else {
+        crap("Unable to open $file for loading: $!");
+    }
 }
 
 # --------[ save_nicks ]------------------------------------------------
@@ -93,15 +96,18 @@ sub save_nicks {
 
     return if $auto && !Irssi::settings_get_bool('msg2notice_autosave');
 
-    open FILE, "> $file";
-    for my $nick (keys %nicks) {
-        $count++;
-		print FILE "$nick\n";
-    }
-    close FILE;
+    if (open FILE, ">", $file) {
+        for my $nick (keys %nicks) {
+            $count++;
+            print FILE "$nick\n";
+        }
+        close FILE;
 
-    crap("Saved $count nicks to $file")
-      unless $auto;
+        crap("Saved $count nicks to $file")
+          unless $auto;
+    } else {
+        crap("Unable to open $file for saving: $!");
+    }
 }
 
 # ======[ Hooks ]=======================================================