diff options
Diffstat (limited to 'inspector/virt-inspector')
-rwxr-xr-x | inspector/virt-inspector | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/inspector/virt-inspector b/inspector/virt-inspector index 4428ecda..f62d21fc 100755 --- a/inspector/virt-inspector +++ b/inspector/virt-inspector @@ -27,6 +27,7 @@ use Pod::Usage; use Getopt::Long; use Data::Dumper; use XML::Writer; +use String::ShellQuote qw(shell_quote); use Locale::TextDomain 'libguestfs'; # Optional: @@ -298,13 +299,17 @@ if ($output eq "fish" || $output eq "ro-fish") { print "--ro "; } - print "-a $_ " foreach @images; + foreach (@images) { + printf "-a %s ", shell_quote ($_); + } my $mounts = $oses->{$root_dev}->{mounts}; # Have to mount / first. Luckily '/' is early in the ASCII # character set, so this should be OK. foreach (sort keys %$mounts) { - print "-m $mounts->{$_}:$_ " if $_ ne "swap" && $_ ne "none"; + if ($_ ne "swap" && $_ ne "none") { + printf "-m %s ", shell_quote ("$mounts->{$_}:$_"); + } } print "\n" } |