qm importovf: --dryrun: use json output format

diff --git a/PVE/CLI/qm.pm b/PVE/CLI/qm.pm
index 806184687d78ded81ee4df04b6b0d5243e5b0e06..0e17cc9671de177c0cc95910dccbd2c8302e4d37 100755 (executable)
--- a/PVE/CLI/qm.pm
+++ b/PVE/CLI/qm.pm
@@ -23,7 +23,6 @@ use PVE::API2::Qemu;
 use JSON;
 use PVE::JSONSchema qw(get_standard_option);
 use Term::ReadLine;
-use Data::Dumper;
 
 use PVE::CLIHandler;
 
@@ -558,8 +557,8 @@ __PACKAGE__->register_method ({
        my $parsed = PVE::QemuServer::OVF::parse_ovf($ovf_file);
 
        if ($dryrun) {
-           print Dumper($parsed);
-           exit(0);
+           print to_json($parsed, { pretty => 1, canonical => 1});
+           return;
        }
 
        $param->{name} = $parsed->{qm}->{name} if defined($parsed->{qm}->{name});