diff options
author | Dirk von Suchodoletz | 2008-12-23 10:31:29 +0100 |
---|---|---|
committer | Dirk von Suchodoletz | 2008-12-23 10:31:29 +0100 |
commit | 93192f4a7d1794303f50289a23029e98e522f537 (patch) | |
tree | 1488026a1a7bbe1efe92ff5a6b20ce26ab4e6dfb /os-plugins | |
parent | Should be added to the link list too (see r2454) (diff) | |
download | core-93192f4a7d1794303f50289a23029e98e522f537.tar.gz core-93192f4a7d1794303f50289a23029e98e522f537.tar.xz core-93192f4a7d1794303f50289a23029e98e522f537.zip |
Fixing a bug of r2445 Reiner pointed out ...
git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@2456 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'os-plugins')
-rw-r--r-- | os-plugins/plugins/qemukvm/OpenSLX/OSPlugin/qemukvm.pm | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/os-plugins/plugins/qemukvm/OpenSLX/OSPlugin/qemukvm.pm b/os-plugins/plugins/qemukvm/OpenSLX/OSPlugin/qemukvm.pm index 2d49ede7..80b14761 100644 --- a/os-plugins/plugins/qemukvm/OpenSLX/OSPlugin/qemukvm.pm +++ b/os-plugins/plugins/qemukvm/OpenSLX/OSPlugin/qemukvm.pm @@ -8,10 +8,10 @@ # # General information about OpenSLX can be found at http://openslx.org/ # ----------------------------------------------------------------------------- -# vmware.pm -# - declares necessary information for the qemukvmplugin +# qemukvm.pm +# - declares necessary information for the qemukvm plugin # ----------------------------------------------------------------------------- -package OpenSLX::OSPlugin::vmware; +package OpenSLX::OSPlugin::qemukvm; use strict; use warnings; @@ -27,7 +27,6 @@ use OpenSLX::Utils; sub new { my $class = shift; - my $self = { name => 'qemukvm', }; @@ -113,7 +112,7 @@ sub installationPhase my $engine = $self->{'os-plugin-engine'}; # different names of the tool (should be unified somehow!?) - if (!isInPath('qemu-kvm' || !isInPath('kvm')) { + if (!isInPath('qemu-kvm') || !isInPath('kvm')) { $engine->installPackages( $engine->getInstallablePackagesForSelection('qemu-kvm') ); @@ -126,7 +125,6 @@ sub removalPhase my $self = shift; my $info = shift; - return; } @@ -135,9 +133,9 @@ sub checkStage3AttrValues my $self = shift; my $stage3Attrs = shift; my $vendorOSAttrs = shift; - my @problems; + #my @problems; - my $vmimg = $stage3Attrs->{'qemukvm::imagesrc'} || ''; + #my $vmimg = $stage3Attrs->{'qemukvm::imagesrc'} || ''; return; } |