d/freebsd-nq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* Fix a long line that I introduced in the last commit

Browse Source 
* Backslash escape non-alphanumeric chars in the login name so that perl
  doesn't choke on things like '$'.
This commit is contained in:
Doug Barton 2000-12-17 23:42:45 +00:00
parent 8f38f3b2e6
commit 6fce744ee3
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
usr.sbin/adduser/rmuser.perl
View File

@ -117,7 +117,8 @@ if ($#ARGV == 0) {
$login_name = &get_login_name;
}
($name, $password, $uid, $gid, $change, $class, $gecos, $home_dir, $shell) = (getpwnam("$login_name"));
($name, $password, $uid, $gid, $change, $class, $gecos, $home_dir, $shell) =
(getpwnam("$login_name"));
if ($?) {
print STDERR "${whoami}: Error: User ${login_name} not in password database\n";
@ -316,7 +317,7 @@ sub update_passwd_file {
print STDERR "\n${whoami}: Warning: couldn't set mode of $new_passwd_file to 0600 ($!)\n\tcontinuing, but please check mode of /etc/master.passwd!\n";
$skipped = 0;
while (<MASTER_PW>) {
if (not /^$login_name\:/io) {
if (not /^\Q$login_name:/io) {
print NEW_PW;
} else {
print STDERR "Dropped entry for $login_name\n" if $debug;