From f1ed6a32939717d89e7bc3f9c0934b7788f2708a Mon Sep 17 00:00:00 2001

From: Pino Toscano <ptoscano@redhat.com>

Date: Wed, 21 Jun 2017 16:34:05 +0200

Subject: [PATCH] resize: make sure the input disk is read-only

Fixes commit 8a2b0738d1b79f288b14fc35294567430d10b7ec.

(cherry picked from commit 1ca2a8b7ba41d7e4baf1aec5d65ace3b66f2dc37)

---

 resize/resize.ml | 2 +-

 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/resize/resize.ml b/resize/resize.ml

index dc96b23..4028aa1 100644

--- a/resize/resize.ml

+++ b/resize/resize.ml

@@ -348,7 +348,7 @@ read the man page virt-resize(1).

   (* Add in and out disks to the handle and launch. *)

   let connect_both_disks () =

     let g = open_guestfs () in

-    add_drive_uri g ?format (snd infile);

+    add_drive_uri g ?format ~readonly:true (snd infile);

     (* The output disk is being created, so use cache=unsafe here. *)

     add_drive_uri g ?format:output_format ~readonly:false ~cachemode:"unsafe"

       (snd outfile);

-- 

2.9.4