diff options
Diffstat (limited to 'perl/examples')
| -rw-r--r-- | perl/examples/guestfs-perl.pod | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/perl/examples/guestfs-perl.pod b/perl/examples/guestfs-perl.pod index c38377c8..9686a2f1 100644 --- a/perl/examples/guestfs-perl.pod +++ b/perl/examples/guestfs-perl.pod @@ -8,12 +8,12 @@ guestfs-perl - How to use libguestfs from Perl use Sys::Guestfs; - my $h = Sys::Guestfs->new (); - $h->add_drive ('guest.img', format => 'raw'); - $h->launch (); - $h->mount_options ('', '/dev/sda1', '/'); - $h->touch ('/hello'); - $h->sync (); + my $g = Sys::Guestfs->new (); + $g->add_drive ('guest.img', format => 'raw'); + $g->launch (); + $g->mount_options ('', '/dev/sda1', '/'); + $g->touch ('/hello'); + $g->sync (); =head1 DESCRIPTION |