do not create compressed image if not needed

1 files changed, 10 insertions, 1 deletions

diff --git a/draklive b/draklive
index 4c119ef..a52c476 100755
--- a/draklive
+++ b/draklive
@@ -1666,13 +1666,22 @@ sub record_onthefly {
     }
 }
 
+sub need_compressed_image {
+    my ($live) = @_;
+    list_selected_loopbacks($live);
+}
+
 sub get_disk_image_path {
     my ($live) = @_;
-    get_disk_master_path($live) . '.bz2';
+    get_disk_master_path($live) . if_(need_compressed_image($live), '.bz2');
 }
 
 sub create_disk_image {
     my ($live) = @_;
+    if (!need_compressed_image($live)) {
+        warn "no loopback: skipping image creation";
+        return;
+    }
     my $master = get_disk_master_path($live);
     my $dest = get_disk_image_path($live);
     mkdir_p(dirname($dest));