From 6e7e1f7edf04617c2024a4eb912706c5c68ab2fc Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 1 Oct 2004 02:11:16 +0000 Subject: - prosuite is now named powerpackplus - simplify the code searching for the meta_class --- perl-install/install2.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 08311e9a7..752d7d77e 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -585,14 +585,16 @@ sub main { if (!$::move && !$::testing && !$o->{meta_class}) { my $VERSION = cat__(install_any::getFile("VERSION")) or do { print "VERSION file missing\n"; sleep 5 }; - $o->{meta_class} = 'desktop' if $VERSION =~ /desktop|discovery/i; - $o->{meta_class} = 'download' if $VERSION =~ /download/i; - $o->{meta_class} = 'firewall' if $VERSION =~ /firewall/i; - $o->{meta_class} = 'server' if $VERSION =~ /server|prosuite/i; + my @classes = qw(powerpackplus powerpack desktop download server firewall); + if (my $meta_class = find { $VERSION =~ /$_/i } @classes) { + $o->{meta_class} = $meta_class; + } $o->{distro_type} = 'community' if $VERSION =~ /community/i; $o->{distro_type} = 'cooker' if $VERSION =~ /cooker/i; } $o->{meta_class} eq 'discovery' and $o->{meta_class} = 'desktop'; + $o->{meta_class} eq 'powerpackplus' and $o->{meta_class} = 'server'; + log::l("meta_class $o->{meta_class}"); if ($::oem) { $o->{partitioning}{use_existing_root} = 1; -- cgit v1.2.1