summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generator/generator_perl.ml3
-rw-r--r--perl/examples/guestfs-perl.pod3
2 files changed, 4 insertions, 2 deletions
diff --git a/generator/generator_perl.ml b/generator/generator_perl.ml
index e4eea93f..80ea1201 100644
--- a/generator/generator_perl.ml
+++ b/generator/generator_perl.ml
@@ -615,7 +615,8 @@ Sys::Guestfs - Perl bindings for libguestfs
$g->launch ();
$g->mount_options ('', '/dev/sda1', '/');
$g->touch ('/hello');
- $g->sync ();
+ $g->shutdown ();
+ $g->close ();
=head1 DESCRIPTION
diff --git a/perl/examples/guestfs-perl.pod b/perl/examples/guestfs-perl.pod
index 9d06b74a..76cf29ef 100644
--- a/perl/examples/guestfs-perl.pod
+++ b/perl/examples/guestfs-perl.pod
@@ -13,7 +13,8 @@ guestfs-perl - How to use libguestfs from Perl
$g->launch ();
$g->mount_options ('', '/dev/sda1', '/');
$g->touch ('/hello');
- $g->sync ();
+ $g->shutdown ();
+ $g->close ();
=head1 DESCRIPTION