summaryrefslogtreecommitdiffstats
path: root/perl-install/install2.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install2.pm')
-rw-r--r--perl-install/install2.pm14
1 files changed, 8 insertions, 6 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index cc57cd587..7e75d2284 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -558,12 +558,14 @@ sub main {
$o->{allowFB} = listlength(cat_("/proc/fb"));
- my $VERSION = cat__(install_any::getFile("VERSION")) or do { print "VERSION file missing\n"; sleep 5 };
- $::corporate = 1 if $VERSION =~ /corporate/i;
- $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;
+ if (!$::move && !$::testing) {
+ my $VERSION = cat__(install_any::getFile("VERSION")) or do { print "VERSION file missing\n"; sleep 5 };
+ $::corporate = 1 if $VERSION =~ /corporate/i;
+ $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;
+ }
$o->{meta_class} eq 'discovery' and $o->{meta_class} = 'desktop';
if ($::oem) {
$o->{partitioning}{use_existing_root} = 1;