summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorColin Guthrie <colin@mageia.org>2014-07-27 21:10:43 +0100
committerPascal Terjan <pterjan@gmail.com>2014-10-20 21:29:55 +0000
commitfe0c071220db3baf4d278944969566ed19f2c31f (patch)
treeb06161a2e305b411aefb5ad6717e3e13f8f47e99 /perl-install/any.pm
parentcaa29bb632d10bf29eada0a5c963ca910af59f0d (diff)
downloaddrakx-fe0c071220db3baf4d278944969566ed19f2c31f.tar
drakx-fe0c071220db3baf4d278944969566ed19f2c31f.tar.gz
drakx-fe0c071220db3baf4d278944969566ed19f2c31f.tar.bz2
drakx-fe0c071220db3baf4d278944969566ed19f2c31f.tar.xz
drakx-fe0c071220db3baf4d278944969566ed19f2c31f.zip
Switch uid/gid boundary to 1000+
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 80962f0ff..c7214ac34 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -836,7 +836,7 @@ sub ask_user_and_root {
my $id = $u->{$field} or return 'ok';
my $name = $field eq 'uid' ? N("User ID") : N("Group ID");
$id =~ /^\d+$/ or $in->ask_warn('', N("%s must be a number", $name)), return;
- $id >= 500 or $in->ask_yesorno('', N("%s should be above 500. Accept anyway?", $name)) or return;
+ $id >= 1000 or $in->ask_yesorno('', N("%s should be above 1000. Accept anyway?", $name)) or return;
'ok';
};
my $ret = $in->ask_from_(