allow to get loopbacks list from a file

1 files changed, 5 insertions, 4 deletions

diff --git a/draklive b/draklive
index 3f1f89a..f0ccb7f 100755
--- a/draklive
+++ b/draklive
@@ -257,10 +257,11 @@ my %overlay = (
             my ($live) = @_;
             #- build dirs list: "dir1=ro:dir2:ro:dir3=rw"
             my $dirs = join(':',
-                            map { "$live->{prefix}{live}{mnt}$_->{mountpoint}=" .
-                                    (!$loop{$_->{type}}{read_only} ? 'rw' : 'ro');
-                                } reverse grep { !$_->{fallback} } @{$live->{mount}{dirs} || []});
-            "mount -o dirs=$dirs -t unionfs unionfs $live->{prefix}{live}{mnt}$live->{mount}{root}";
+                            map {
+                                $_->{list} ? "\$(cat $_->{list})" :
+                                  (!$loop{$_->{type}}{read_only} ? 'rw' : 'ro');
+                            } reverse grep { !$_->{fallback} } @{$live->{mount}{dirs} || []});
+            "sh -c 'mount -o dirs=$dirs -t unionfs unionfs $live->{prefix}{live}{mnt}$live->{mount}{root}'";
         },
     },
 );