diff options
| author | Matthew Booth <mbooth@redhat.com> | 2009-08-03 11:43:38 +0100 |
|---|---|---|
| committer | Matthew Booth <mbooth@redhat.com> | 2009-08-03 11:43:38 +0100 |
| commit | 6279c4bbf9cbbe66917ce9ffa4b98eca9040bcd9 (patch) | |
| tree | f9999788b393aed79553276d463e94d3b1a2cdd2 /perl/lib | |
| parent | e2fa1fe4efcb3bbfe5b7cc2e98b10357abb59422 (diff) | |
| download | libguestfs-6279c4bbf9cbbe66917ce9ffa4b98eca9040bcd9.tar.gz libguestfs-6279c4bbf9cbbe66917ce9ffa4b98eca9040bcd9.tar.xz libguestfs-6279c4bbf9cbbe66917ce9ffa4b98eca9040bcd9.zip | |
Cleanup whitespace warnings in Lib.pm
Diffstat (limited to 'perl/lib')
| -rw-r--r-- | perl/lib/Sys/Guestfs/Lib.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl/lib/Sys/Guestfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm index ba5aea6b..8e205937 100644 --- a/perl/lib/Sys/Guestfs/Lib.pm +++ b/perl/lib/Sys/Guestfs/Lib.pm @@ -506,7 +506,7 @@ described in more detail below, but at the top level looks like: '/dev/VG/Root1' => \%os1, '/dev/VG/Root2' => \%os2, } - + %os1 = { os => 'linux', mounts => { @@ -792,7 +792,7 @@ sub _check_linux_root $r->{os_minor_version} = "$2" if(defined($2)); $r->{package_management} = "yum"; } - + elsif (/(Red Hat Enterprise Linux|CentOS|Scientific Linux)/) { my $distro = $1; @@ -1051,7 +1051,7 @@ like: %oses = { '/dev/VG/Root' => \%os, } - + (There can be multiple roots for a multi-boot VM). The C<\%os> hash contains the following keys (any can be omitted): @@ -1701,7 +1701,7 @@ sub _inspect_initrd $initrd_modules = {}; $os->{initrd_modules} = $initrd_modules; } - + $initrd_modules->{$version} = \@modules; return \@modules; |