1 files changed, 16 insertions, 16 deletions

diff --git a/perl/t/030-config.t b/perl/t/030-config.t
index 5f8e04aa..0057503c 100644
--- a/perl/t/030-config.t
+++ b/perl/t/030-config.t
@@ -21,27 +21,27 @@ use Test::More tests => 7;
 
 use Sys::Guestfs;
 
-my $h = Sys::Guestfs->new ();
-ok ($h);
+my $g = Sys::Guestfs->new ();
+ok ($g);
 
-$h->set_verbose (1);
-ok ($h->get_verbose () == 1, "verbose not true");
-$h->set_verbose (0);
-ok ($h->get_verbose () == 0, "verbose not false");
-$h->set_autosync (1);
-ok ($h->get_autosync () == 1, "autosync not true");
-$h->set_autosync (0);
-ok ($h->get_autosync () == 0, "autosync not false");
+$g->set_verbose (1);
+ok ($g->get_verbose () == 1, "verbose not true");
+$g->set_verbose (0);
+ok ($g->get_verbose () == 0, "verbose not false");
+$g->set_autosync (1);
+ok ($g->get_autosync () == 1, "autosync not true");
+$g->set_autosync (0);
+ok ($g->get_autosync () == 0, "autosync not false");
 
 # This probably doesn't work at the moment because
 # the binding for set_path does not ensure the string
 # remains around for the lifetime of the handle.
-#$h->set_path (".");
-#ok ($h->get_path () eq ".", "path not dot");
-#$h->set_path (undef);
-#ok ($h->get_path () ne "", "path is empty");
+#$g->set_path (".");
+#ok ($g->get_path () eq ".", "path not dot");
+#$g->set_path (undef);
+#ok ($g->get_path () ne "", "path is empty");
 
-$h->add_drive ("/dev/null");
+$g->add_drive ("/dev/null");
 ok (1, "add drive");
-$h->add_cdrom ("/dev/zero");
+$g->add_cdrom ("/dev/zero");
 ok (1, "add cdrom");