diff options
| -rw-r--r-- | usr.sbin/adduser/adduser.perl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/usr.sbin/adduser/adduser.perl b/usr.sbin/adduser/adduser.perl index b234aaf6218..ef4278e309f 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.59 2014/02/14 19:08:03 tedu Exp $ +# $OpenBSD: adduser.perl,v 1.60 2014/02/15 06:25:18 tedu Exp $ # # Copyright (c) 1995-1996 Wolfram Schneider <wosch@FreeBSD.org>. Berlin. # All rights reserved. @@ -241,7 +241,7 @@ sub shell_default_valid { return $s; } -# return default home partition (f.e. "/home") +# return default home partition (e.g. "/home") # create base directory if necessary sub home_partition { local($home) = @_; @@ -591,7 +591,7 @@ sub new_users_groups_valid { return ($flag, $new_groups); } -# your last change +# your last chance sub new_users_ok { print <<EOF; @@ -1231,7 +1231,7 @@ sub mkdirhier { } # stript unused '/' -# F.i.: //usr///home// -> /usr/home +# e.g.: //usr///home// -> /usr/home sub stripdir { local($dir) = @_; @@ -1241,8 +1241,8 @@ sub stripdir { return '/'; } -# Read one of the elements from @list. $confirm is default. -# If !$allow accept only elements from @list. +# Read one of the elements from @list. $confirm is the default. +# If !$allow then accept only elements from @list. sub confirm_list { local($message, $allow, $confirm, @list) = @_; local($read, $c, $print); @@ -1306,7 +1306,7 @@ sub choosetxt_yn_default { # YES or NO question # return 1 if &confirm("message", "yes") and answer is yes # or if &confirm("message", "no") an answer is no -# otherwise 0 +# otherwise return 0 sub confirm_yn { local($message, $confirm) = @_; local($read, $c); |