From 9474c6318ad2effa3e80246d1012cb111e726bf0 Mon Sep 17 00:00:00 2001
From: Thomas Bushnell <thomas@gnu.org>
Date: Mon, 12 Aug 1996 18:31:04 +0000
Subject: *** empty log message ***

---
 libdiskfs/readonly.c | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'libdiskfs/readonly.c')

diff --git a/libdiskfs/readonly.c b/libdiskfs/readonly.c
index 18ade09a..17ed312e 100644
--- a/libdiskfs/readonly.c
+++ b/libdiskfs/readonly.c
@@ -21,6 +21,7 @@
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
 
 #include <fcntl.h>
+#include <error.h>
 
 #include "priv.h"
 
@@ -29,13 +30,23 @@ int _diskfs_diskdirty;
 int
 diskfs_check_readonly ()
 {
+  error_t err;
+  
   if (diskfs_readonly)
     return 1;
   else
     {
       if (!_diskfs_diskdirty)
 	{
-	  diskfs_set_hypermetadata (1, 0);
+	  err = diskfs_set_hypermetadata (1, 0);
+	  if (err)
+	    {
+	      error (0, 0, 
+		     "%s: MEDIA NOT WRITABLE; switching to READ-ONLY",
+		     diskfs_device_arg);
+	      diskfs_readonly = 1;
+	      return 1;
+	    }
 	  _diskfs_diskdirty = 1;
 	}
       return 0;
-- 
cgit v1.2.3