From fe0c071220db3baf4d278944969566ed19f2c31f Mon Sep 17 00:00:00 2001
From: Colin Guthrie <colin@mageia.org>
Date: Sun, 27 Jul 2014 21:10:43 +0100
Subject: Switch uid/gid boundary to 1000+

---
 perl-install/any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/any.pm')

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_(
-- 
cgit v1.2.1