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