From b20c77af5b15e40770c37257b107df440ec272af Mon Sep 17 00:00:00 2001 From: Doug Barton Date: Sun, 17 Dec 2000 23:42:45 +0000 Subject: * Fix a long line that I introduced in the last commit * Backslash escape non-alphanumeric chars in the login name so that perl doesn't choke on things like '$'. --- adduser/rmuser.perl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/adduser/rmuser.perl b/adduser/rmuser.perl index b3f1406..c5c9b74 100644 --- a/adduser/rmuser.perl +++ b/adduser/rmuser.perl @@ -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 () { - 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; -- cgit v1.2.3-56-ge451