X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=cat%2Fvirt-cat.pl;h=748dbb8c6130fa93f8c1f0c981584c5350189cf1;hp=1ac720c2622255a5ed6c159752fd8ec5b86b69ed;hb=d15195bad9e50f4d80e84c39100a217a260fc806;hpb=2ab233b3124f4dd3e7c686de110d9a97cc525c18 diff --git a/cat/virt-cat.pl b/cat/virt-cat.pl index 1ac720c..748dbb8 100755 --- a/cat/virt-cat.pl +++ b/cat/virt-cat.pl @@ -25,9 +25,6 @@ use Sys::Guestfs::Lib qw(open_guest get_partitions resolve_windows_path inspect_operating_systems mount_operating_system); use Pod::Usage; use Getopt::Long; -use Data::Dumper; -use File::Temp qw/tempdir/; -use XML::Writer; use Locale::TextDomain 'libguestfs'; =encoding utf8 @@ -116,8 +113,8 @@ at all. =cut GetOptions ("help|?" => \$help, - "version" => \$version, - "connect|c=s" => \$uri, + "version" => \$version, + "connect|c=s" => \$uri, ) or pod2usage (2); pod2usage (1) if $help; if ($version) { @@ -140,7 +137,6 @@ if ($uri) { } $g->launch (); -$g->wait_ready (); # List of possible filesystems. my @partitions = get_partitions ($g);