search for: _is_suse_family

The following series of patches adds support for converting SUSE guests through virt-v2v. These changes should not impact non-SUSE guest conversions. Mike Latimer (4): Add perl-Bootloader support to grub packages Add conversion support for SUSE guests Add SUSE to capabilities db and conf Add SUSE support documentation lib/Sys/VirtConvert/Converter/Linux.pm | 480

...ert::Converter::Linux converts a Linux based guest to use KVM. =head1 METHODS @@ -544,9 +625,17 @@ sub _is_rhel_family ($g->inspect_get_distro($root) =~ /^(rhel|centos|scientificlinux| redhat-based)$/); } -=item Sys::VirtConvert::Converter::RedHat->can_handle(g, root) +sub _is_suse_family +{ + my ($g, $root) = @_; + + return ($g->inspect_get_type($root) eq 'linux') && + ($g->inspect_get_distro($root) =~ /^(sles|suse-based|opensuse)$/); +} -Return 1 if Sys::VirtConvert::Converter::RedHat can convert the given guest +=item Sys::VirtConvert::Conv...

...return ($g->inspect_get_type($root) eq 'linux') && - ($g->inspect_get_distro($root) =~ /^(rhel|centos|scientificlinux| redhat-based)$/); + ($g->inspect_get_distro($root) =~ + /^(rhel|centos|scientificlinux|redhat-based)$/); +} + +sub _is_suse_family +{ + my ($g, $root) = @_; + + return ($g->inspect_get_type($root) eq 'linux') && + ($g->inspect_get_distro($root) =~ /^(sles|suse-based|opensuse)$/); } -=item Sys::VirtConvert::Converter::RedHat->can_handle(g, root) +=item Sys::VirtConvert::Converter::Lin...

On Friday, October 04, 2013 09:38:58 AM Matthew Booth wrote: > It's specifically an error if we're attempting to configure virtio, and > there's no detected virtio kernel. It shouldn't have been possible to > get here in that state, hence it's a programmer error. The code below > attempts to install *any* kernel in the case that we aren't configuring >

...a kernel, check which kernels are there first > > my @k_before = $g->glob_expand('/boot/vmlinuz-*') if > > defined($kernel); > > > > + # If a SLES11 kernel is being added, add -base kernel > > + if (defined($kernel)) { > > + if (_is_suse_family($g, $root) && > > + ($g->inspect_get_major_version($root) == 11)) { > > + my $tmp; > > + push(@$tmp, $kernel); > > + $tmp->[1][0] = $tmp->[0][0].'-base'; > > + for my $count (1..4) { > &...

...are there first > > > my @k_before = $g->glob_expand('/boot/vmlinuz-*') if > > > defined($kernel); > > > > > > + # If a SLES11 kernel is being added, add -base kernel > > > + if (defined($kernel)) { > > > + if (_is_suse_family($g, $root) && > > > + ($g->inspect_get_major_version($root) == 11)) { > > > + my $tmp; > > > + push(@$tmp, $kernel); > > > + $tmp->[1][0] = $tmp->[0][0].'-base'; > > > + for...

...ny > # If we're installing a kernel, check which kernels are there first > my @k_before = $g->glob_expand('/boot/vmlinuz-*') if defined($kernel); > > + # If a SLES11 kernel is being added, add -base kernel > + if (defined($kernel)) { > + if (_is_suse_family($g, $root) && > + ($g->inspect_get_major_version($root) == 11)) { > + my $tmp; > + push(@$tmp, $kernel); > + $tmp->[1][0] = $tmp->[0][0].'-base'; > + for my $count (1..4) { > + if (defin...

...nux based guest to use KVM. + +=head1 METHODS + +=over + +=cut + +sub _is_rhel_family +{ + my ($g, $root) = @_; + + return ($g->inspect_get_type($root) eq 'linux') && + ($g->inspect_get_distro($root) =~ /^(rhel|centos|scientificlinux|redhat-based)$/); +} + +sub _is_suse_family +{ + my ($g, $root) = @_; + + return ($g->inspect_get_type($root) eq 'linux') && + ($g->inspect_get_distro($root) =~ /^(sles|suse-based|opensuse)$/); +} + +=item Sys::VirtConvert::Converter::Linux->can_handle(g, root) + +Return 1 if Sys::VirtConvert::Convert...