diff options
Diffstat (limited to 'perl/examples/create_disk.pl')
| -rwxr-xr-x | perl/examples/create_disk.pl | 5 |
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 (); |