On Wed, Dec 07, 2016 at 05:13:05PM +0100, Tomáš Golembiovský wrote:
- let cmd = sprintf "%s %s" prog (Filename.quote filename)
in
+ let cmd =
+ match tar with
+ | None ->
+ sprintf "%s %s" prog (Filename.quote filename)
+ | Some tar ->
+ sprintf "tar xOf %s %s | %s"
+ (Filename.quote tar) (Filename.quote filename) prog
You can actually use just "quote" instead of "Filename.quote"
everywhere now, since 07fb30b1618310e5a944a947499c4d121d8bd3d8 went
upstream yesterday.
Rich.
--
Richard Jones, Virtualization Group, Red Hat
http://people.redhat.com/~rjones
Read my programming and virtualization blog:
http://rwmj.wordpress.com
libguestfs lets you edit virtual machines. Supports shell scripting,
bindings from many languages.
http://libguestfs.org