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-07-17 12:34:51 +0100 |
| commit | f6846d74c947bd8b711ef0b29148fa1e90580354 (patch) | |
| tree | 4e0c05e3a78e5b100b6900f677b48d7351027b5b | |
| parent | a99ea198b24745c49cdb42645c3497ac3b0e6a2f (diff) | |
| download | libguestfs-f6846d74c947bd8b711ef0b29148fa1e90580354.tar.gz libguestfs-f6846d74c947bd8b711ef0b29148fa1e90580354.tar.xz libguestfs-f6846d74c947bd8b711ef0b29148fa1e90580354.zip | |
perl: In examples, call $g->shutdown, $g->close.
| -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 feac98eb..ced0ed6d 100644 --- a/generator/generator_perl.ml +++ b/generator/generator_perl.ml @@ -612,7 +612,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 9686a2f1..814946e9 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 |