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

diff --git a/scripts/buf.pl b/scripts/buf.pl
index 5f438895c54012e3a4a36bbfabfe29b3e3269b2f..23e4508b7d9f8e042f8cec3997e2507ed49f778b 100644 (file)
--- 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}};