From 0f49f0f03be806df6d2f8072b4ca66d387f6a70b Mon Sep 17 00:00:00 2001
From: Thomas Schoebel-Theuer <tst@1und1.de>
Date: Mon, 23 Oct 2023 16:03:19 +0200
Subject: [PATCH] marsadm: add warning on forced disk open

---
 userspace/marsadm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/userspace/marsadm b/userspace/marsadm
index 2b422fb3..a06a5526 100755
--- a/userspace/marsadm
+++ b/userspace/marsadm
@@ -5388,6 +5388,10 @@ sub create_res {
     use Fcntl 'SEEK_END', 'O_RDONLY', 'O_RDWR', 'O_EXCL';
     my $flags = O_RDWR | O_EXCL;
     if ($force) {
+      sysopen(TEST, $dev, $flags) or
+	lwarn "Cannot open disk device '$dev' for exclusive rw access. "
+	  . "I will retry due to --force, hopefully you know the risk, like filesystem corruption.\n";
+      close(TEST);
       $flags = O_RDONLY;
     }
     sysopen(TEST, $dev, $flags) or ldie "cannot open device '$dev' for exclusive rw access\n";