From: vague666 <redacted>
Date: Thu, 29 Mar 2018 08:23:06 +0000 (+0200)
Subject: Readd warn to unlink
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=4a68e9dd70bad5934d9a095b23078c6fa8075a0d;p=irssi-scripts.irssi.org.git

Readd warn to unlink
---

diff --git a/scripts/buf.pl b/scripts/buf.pl
index 17fffdc..535801c 100644
--- a/scripts/buf.pl
+++ b/scripts/buf.pl
@@ -73,7 +73,7 @@ sub upgrade {
 sub restore {
     my $fn = _filename;
     my $in = retrieve($fn) or die "Could not retrieve data from $fn";
-    unlink $fn;
+    unlink $fn or warn "unlink $fn: $!"
   
     my @suppress = @{$in->{suppress}};
     @suppress{@suppress} = (2) x @suppress if (settings_get_bool 'upgrade_suppress_join');