From 51c62f928f9d8810b67f8703f8a85d60a91f3801 Mon Sep 17 00:00:00 2001 From: damien Date: Thu, 3 Jan 2002 14:48:28 +0000 Subject: user can be equal to 500 --- perl-install/standalone/drakbackup | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index c3a4169a4..00a00e217 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -269,7 +269,7 @@ sub read_passwd { my @tmp1; my @tmp2; @user_and_path_list = map { - (split(':', $_))[0] . ":" . (split(':', $_))[5] } grep {( split(':', $_))[2] > 500} split ('\n', cat_('/etc/passwd')); + (split(':', $_))[0] . ":" . (split(':', $_))[5] } grep {( split(':', $_))[2] >= 500} split ('\n', cat_('/etc/passwd')); $DEBUG and print "user_and_path_list: ".$_."\n" foreach (@user_and_path_list); @user_list = (); @all_user_list = (); -- cgit v1.2.1