Readd warn to unlink

diff --git a/scripts/buf.pl b/scripts/buf.pl
index 17fffdc3ac2d90c6317bafbb4f28b5ce0d97f86b..535801c6711b1d9e08bc1773c69299f8032bec41 100644 (file)
--- 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');