diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2012-07-17 12:34:51 +0100 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2012-08-05 22:48:50 +0100 |
| commit | 80740b37f76fa7a141d001c46798aea628d5b04a (patch) | |
| tree | fb7000ac210ad7f19fa85274b13f619831701d43 | |
| parent | 509c1731f90b4c8c25af1cab417a1ecc03076052 (diff) | |
| download | libguestfs-80740b37f76fa7a141d001c46798aea628d5b04a.tar.gz libguestfs-80740b37f76fa7a141d001c46798aea628d5b04a.tar.xz libguestfs-80740b37f76fa7a141d001c46798aea628d5b04a.zip | |
perl: In examples, call $g->shutdown, $g->close.
(cherry picked from commit f6846d74c947bd8b711ef0b29148fa1e90580354)
| -rw-r--r-- | generator/generator_perl.ml | 3 | ||||
| -rw-r--r-- | perl/examples/guestfs-perl.pod | 3 |
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 |