From 175fd63893e2dd0057173e25c10e2c7a1491373b Mon Sep 17 00:00:00 2001 From: Jason Peel Date: Tue, 17 Jun 2003 00:58:31 +0000 Subject: make Groupname match Groupid output; ok millert@ --- usr.sbin/adduser/adduser.perl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'usr.sbin/adduser') diff --git a/usr.sbin/adduser/adduser.perl b/usr.sbin/adduser/adduser.perl index 5a8ffce855b..c1783d5c753 100644 --- a/usr.sbin/adduser/adduser.perl +++ b/usr.sbin/adduser/adduser.perl @@ -1,6 +1,6 @@ #!/usr/bin/perl # -# $OpenBSD: adduser.perl,v 1.46 2003/06/14 23:23:08 millert Exp $ +# $OpenBSD: adduser.perl,v 1.47 2003/06/17 00:58:30 jsyn Exp $ # # Copyright (c) 1995-1996 Wolfram Schneider . Berlin. # All rights reserved. @@ -91,7 +91,7 @@ sub variables { $etc_login_conf = "/etc/login.conf"; @pwd_mkdb = ("pwd_mkdb", "-p"); # program for building passwd database $encryptionmethod = "auto"; - $rcsid = '$OpenBSD: adduser.perl,v 1.46 2003/06/14 23:23:08 millert Exp $'; + $rcsid = '$OpenBSD: adduser.perl,v 1.47 2003/06/17 00:58:30 jsyn Exp $'; # List of directories where shells located @path = ('/bin', '/usr/bin', '/usr/local/bin'); @@ -355,7 +355,7 @@ sub group_read { ($g_groupname, $pw, $g_gid, $memb) = (split(/:/, $_))[0..3]; $groupmembers{$g_gid} = $memb; - warn "Groupname exists twice: $g_groupname:$g_gid -> $g_groupname:$groupname{$g_groupname}\n" + warn "Groupname exists twice: $g_groupname:$g_gid -> $g_groupname:$groupname{$g_groupname}\n" if $groupname{$g_groupname} && $verbose; $groupname{$g_groupname} = $g_gid; warn "Groupid exists twice: $g_groupname:$g_gid -> $gid{$g_gid}:$g_gid\n" -- cgit v1.2.3