From f27e3a2b0552b8475908a430bfff2af24b1175c6 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Tue, 17 Jul 2012 12:34:51 +0100
Subject: perl: In examples, call $g->shutdown, $g->close. (cherry picked from
 commit f6846d74c947bd8b711ef0b29148fa1e90580354)

---
 generator/generator_perl.ml    | 3 ++-
 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
 
-- 
cgit