X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=perl%2Ft%2F060-readdir.t;h=5ed5b7acd86ba90162ee2a8de3768078d012feef;hp=898b44f86a0da6b2fe3db5267e2c8acef2e85db9;hb=b1e1ca2f74a921b3f784537d59c617df29ea1d60;hpb=b03995b67f9bc23d066b282bb7dad9b7c71c90da

diff --git a/perl/t/060-readdir.t b/perl/t/060-readdir.t
index 898b44f..5ed5b7a 100644
--- a/perl/t/060-readdir.t
+++ b/perl/t/060-readdir.t
@@ -34,7 +34,7 @@ ok (1);
 $h->launch ();
 ok (1);
 
-$h->sfdisk ("/dev/sda", 0, 0, 0, [","]);
+$h->part_disk ("/dev/sda", "mbr");
 ok (1);
 $h->mkfs ("ext2", "/dev/sda1");
 ok (1);