summaryrefslogtreecommitdiffstats
path: root/perl/examples/create_disk.pl
diff options
context:
space:
mode:
authorRichard W.M. Jones <rjones@redhat.com>2012-07-03 14:42:10 +0100
committerRichard W.M. Jones <rjones@redhat.com>2012-07-06 17:36:30 +0100
commit65d1f27ff2362be16433e603ed8a1e690249d278 (patch)
tree23d16f654eb37a6b797b718296014ddea4412131 /perl/examples/create_disk.pl
parent352219c718c0705661e48f1fd3809ed47cde1555 (diff)
downloadlibguestfs-65d1f27ff2362be16433e603ed8a1e690249d278.tar.gz
libguestfs-65d1f27ff2362be16433e603ed8a1e690249d278.tar.xz
libguestfs-65d1f27ff2362be16433e603ed8a1e690249d278.zip
perl, python, ruby: Fix comments on call to close method.
Make the comments consistent. Also make the Perl example call $g->close explicitly so it is consistent with the other examples. (cherry picked from commit 27ebf517fae972eee49ae5911a03fabe5f4b6e54)
Diffstat (limited to 'perl/examples/create_disk.pl')
-rwxr-xr-xperl/examples/create_disk.pl5
1 files changed, 4 insertions, 1 deletions
diff --git a/perl/examples/create_disk.pl b/perl/examples/create_disk.pl
index 49538a5f..fa15bc7b 100755
--- a/perl/examples/create_disk.pl
+++ b/perl/examples/create_disk.pl
@@ -57,4 +57,7 @@ $g->mkdir ("/foo");
# the disk image.
$g->upload ("/etc/resolv.conf", "/foo/resolv.conf");
-exit 0
+# Note also that handles are automatically closed if they are
+# reaped by reference counting. You only need to call close
+# if you want to close the handle right away.
+$g->close ();