From: vague666 <redacted>
Date: Thu, 29 Mar 2018 07:57:55 +0000 (+0200)
Subject: Don't die $\!, use proper error messages
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=657eb1cf8c6ed7903d7d3835b656f5bc9cf1d1f4;p=irssi-scripts.irssi.org.git

Don't die $\!, use proper error messages
---

diff --git a/scripts/buf.pl b/scripts/buf.pl
index 5f43889..23e4508 100644
--- a/scripts/buf.pl
+++ b/scripts/buf.pl
@@ -62,7 +62,8 @@ sub upgrade {
         push @{$out->{windows}}, { refnum => $window->{refnum}, lines => $output };
     }
     my $old_umask = umask 0077;
-    store($out, _filename) or die $!;
+    my $fn = _filename;
+    store($out, $fn) or die "Could not store data to $fn";
     umask $old_umask;
     unlink sprintf("%s/sessionconfig", get_irssi_dir);
     command 'layout save';
@@ -71,7 +72,7 @@ sub upgrade {
 
 sub restore {
     my $fn = _filename;
-    my $in = retrieve($fn) or die $!;
+    my $in = retrieve($fn) or die "Could not retrieve data from $fn";
     unlink $fn;
   
     my @suppress = @{$in->{suppress}};