git.annexia.org
/
libguestfs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
virt-cat: Remove some unused Perl module includes.
[libguestfs.git]
/
cat
/
virt-cat.pl
diff --git
a/cat/virt-cat.pl
b/cat/virt-cat.pl
index
1ac720c
..
748dbb8
100755
(executable)
--- 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;
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
use Locale::TextDomain 'libguestfs';
=encoding utf8
@@
-116,8
+113,8
@@
at all.
=cut
GetOptions ("help|?" => \$help,
=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) {
) or pod2usage (2);
pod2usage (1) if $help;
if ($version) {
@@
-140,7
+137,6
@@
if ($uri) {
}
$g->launch ();
}
$g->launch ();
-$g->wait_ready ();
# List of possible filesystems.
my @partitions = get_partitions ($g);
# List of possible filesystems.
my @partitions = get_partitions ($g);