Fix a problem with dummy mode in tapctl

Signed-off-by: Jon Ludlam <Jonathan.Ludlam@eu.citrix.com>

diff --git a/tapctl/tapctl.ml b/tapctl/tapctl.ml
index df63f3349de73c2c2778f2af31a66a09524d72ef..845cfece93208136f3c4581b5712161833184268 100644 (file)
--- a/tapctl/tapctl.ml
+++ b/tapctl/tapctl.ml
@@ -94,6 +94,10 @@ module Dummy = struct
                                d_state = None;
                                d_args = None;
                        } in
+                       let stem = get_tapdevstem ctx in
+                       let dummy_device = Printf.sprintf "%s%d" stem minor in
+                       Unixext.unlink_safe dummy_device;
+                       Unixext.touch_file dummy_device;
                        write_dummy_tapdisk_list ctx (entry::list);
                        minor
                )