diff options
author | damien <damien@mandriva.com> | 2002-01-03 14:48:28 +0000 |
---|---|---|
committer | damien <damien@mandriva.com> | 2002-01-03 14:48:28 +0000 |
commit | 51c62f928f9d8810b67f8703f8a85d60a91f3801 (patch) | |
tree | 296fa727168a8e52a9a848d45806185afc0d0e8a /perl-install/standalone | |
parent | 9ee64ee511ed194e1022e10fba19cbf7629bd316 (diff) | |
download | drakx-backup-do-not-use-51c62f928f9d8810b67f8703f8a85d60a91f3801.tar drakx-backup-do-not-use-51c62f928f9d8810b67f8703f8a85d60a91f3801.tar.gz drakx-backup-do-not-use-51c62f928f9d8810b67f8703f8a85d60a91f3801.tar.bz2 drakx-backup-do-not-use-51c62f928f9d8810b67f8703f8a85d60a91f3801.tar.xz drakx-backup-do-not-use-51c62f928f9d8810b67f8703f8a85d60a91f3801.zip |
user can be equal to 500
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-x | perl-install/standalone/drakbackup | 2 |
1 files changed, 1 insertions, 1 deletions
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 = (); |