summaryrefslogtreecommitdiffstats
path: root/perl/examples/create_disk.pl
diff options
context:
space:
mode:
Diffstat (limited to 'perl/examples/create_disk.pl')
-rwxr-xr-xperl/examples/create_disk.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/examples/create_disk.pl b/perl/examples/create_disk.pl
index 11b91469..76b51de5 100755
--- a/perl/examples/create_disk.pl
+++ b/perl/examples/create_disk.pl
@@ -18,7 +18,7 @@ close FILE or die "$output: $!";
$g->set_trace (1);
# Attach the disk image to libguestfs.
-$g->add_drive_opts ($output, format => "raw", readonly => 0);
+$g->add_drive ($output, format => "raw", readonly => 0);
# Run the libguestfs back-end.
$g->launch ();