diff --git a/perl/t/050-lvcreate.t b/perl/t/050-lvcreate.t
index 042d60ac6..465a479d3 100644
--- a/perl/t/050-lvcreate.t
+++ b/perl/t/050-lvcreate.t
@@ -45,11 +45,11 @@ ok (1);
 
 my @lvs = $g->lvs ();
 if (@lvs != 2 || $lvs[0] ne "/dev/VG/LV1" || $lvs[1] ne "/dev/VG/LV2") {
-    die "h->lvs() returned incorrect result"
+    die "g->lvs() returned incorrect result"
 }
 ok (1);
 
-$g->sync ();
+$g->shutdown ();
 ok (1);
 
 undef $g;
diff --git a/perl/t/060-readdir.t b/perl/t/060-readdir.t
index 8cc41c90e..6b2ab1331 100644
--- a/perl/t/060-readdir.t
+++ b/perl/t/060-readdir.t
@@ -52,7 +52,7 @@ foreach (@dirs) {
 }
 ok (1);
 
-$g->sync ();
+$g->shutdown ();
 ok (1);
 
 undef $g;
diff --git a/perl/t/400-events.t b/perl/t/400-events.t
index 40831a556..bad687f86 100644
--- a/perl/t/400-events.t
+++ b/perl/t/400-events.t
@@ -63,7 +63,6 @@ ok (1);
 
 # Do some stuff.
 $g->add_drive_ro ("/dev/null");
-$g->set_autosync (1);
 ok (1);
 
 # Close the handle.  The close callback should be invoked.