examples: Use add_drive_opts function in examples.

In libguestfs 1.20, you will be able to use 'add_drive'
instead of 'add_drive_opts' (except in the C bindings).

However until libguestfs 1.20 is the minimum stable version
people will still be using old versions where you have to use
'add_drive_opts'.  This makes the examples confusing.

Therefore continue to use 'add_drive_opts' in the examples
for now.

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 ();