diff options
Diffstat (limited to 'perl')
-rwxr-xr-x | perl/examples/create_disk.pl | 2 | ||||
-rw-r--r-- | perl/examples/guestfs-perl.pod | 2 | ||||
-rwxr-xr-x | perl/examples/inspect_vm.pl | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/perl/examples/create_disk.pl b/perl/examples/create_disk.pl index 76b51de5..11b91469 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 ($output, format => "raw", readonly => 0); +$g->add_drive_opts ($output, format => "raw", readonly => 0); # Run the libguestfs back-end. $g->launch (); diff --git a/perl/examples/guestfs-perl.pod b/perl/examples/guestfs-perl.pod index 814946e9..76cf29ef 100644 --- a/perl/examples/guestfs-perl.pod +++ b/perl/examples/guestfs-perl.pod @@ -9,7 +9,7 @@ guestfs-perl - How to use libguestfs from Perl use Sys::Guestfs; my $g = Sys::Guestfs->new (); - $g->add_drive ('guest.img', format => 'raw'); + $g->add_drive_opts ('guest.img', format => 'raw'); $g->launch (); $g->mount_options ('', '/dev/sda1', '/'); $g->touch ('/hello'); diff --git a/perl/examples/inspect_vm.pl b/perl/examples/inspect_vm.pl index 7800ce02..6d95b697 100755 --- a/perl/examples/inspect_vm.pl +++ b/perl/examples/inspect_vm.pl @@ -16,7 +16,7 @@ my $g = new Sys::Guestfs (); # Attach the disk image read-only to libguestfs. # You could also add an optional format => ... argument here. This is # advisable since automatic format detection is insecure. -$g->add_drive ($disk, readonly => 1); +$g->add_drive_opts ($disk, readonly => 1); # Run the libguestfs back-end. $g->launch (); |