diff options
Diffstat (limited to 'perl/examples/create_disk.pl')
| -rwxr-xr-x | perl/examples/create_disk.pl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/perl/examples/create_disk.pl b/perl/examples/create_disk.pl index fa15bc7b..11b91469 100755 --- a/perl/examples/create_disk.pl +++ b/perl/examples/create_disk.pl @@ -57,6 +57,11 @@ $g->mkdir ("/foo"); # the disk image. $g->upload ("/etc/resolv.conf", "/foo/resolv.conf"); +# Because we wrote to the disk and we want to detect write +# errors, call $g->shutdown. You don't need to do this: +# $g->close will do it implicitly. +$g->shutdown (); + # 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. |