X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;ds=sidebyside;f=inspector%2Fvirt-inspector;h=49bf082faf236a584820fb4dc32a2599af03afab;hb=1784e08830903dd3a10e5bc406d531d4555e3637;hp=a7a65146bd4d65d4da8dafc7f50bbdc2274cdc97;hpb=ebfcb7f23df4546977628dc718982730682a68c0;p=libguestfs.git diff --git a/inspector/virt-inspector b/inspector/virt-inspector index a7a6514..49bf082 100755 --- a/inspector/virt-inspector +++ b/inspector/virt-inspector @@ -199,7 +199,15 @@ if ($version) { pod2usage (__"virt-inspector: no image or VM names given") if @ARGV == 0; my $rw = 0; + +# XXX This is a bug: Originally we intended to open the guest with +# rw=>1 in order to tell Sys::Guestfs::Lib that we should disallow +# active domains. However this also has the effect of opening the +# disk image in write mode, and in any case we don't use this option +# in guestfish any more since we moved all the inspection code into +# the core library. We should drop the fish output modes completely. $rw = 1 if $output eq "fish"; + my $g; my @images; if ($uri) { @@ -316,7 +324,7 @@ elsif ($output eq "perl") { # YAML output elsif ($output eq "yaml") { - die __"virt-inspector: no YAML support\n" + die __"virt-inspector: no YAML support, try installing perl-YAML or libyaml-perl\n" unless exists $INC{"YAML/Any.pm"}; print Dump(%$oses); @@ -847,9 +855,9 @@ L, L, L. -=head1 AUTHOR +=head1 AUTHORS -Richard W.M. Jones L +Richard W.M. Jones L Matthew Booth L