@@ -21,10 +21,9 @@ License:
21
21
22
22
use strict;
23
23
use Getopt::Std;
24
- use vars qw( $opt_G $opt_n $opt_u $opt_g $opt_r $opt_a $opt_p $opt_h ) ;
24
+ use vars qw( $opt_G $opt_n $opt_u $opt_g $opt_r $opt_a $opt_p) ;
25
25
26
- &help unless getopts(' Gnuagraph' );
27
- &help if ( $opt_h );
26
+ getopts(' Gnuagrap' ) or help();
28
27
if ( ($opt_G + $opt_g + $opt_p + $opt_u ) > 1 ) {
29
28
print STDERR " You may only choose one of -G, -g, -p, or -u. Doh!\n\n " ;
30
29
&help;
@@ -163,7 +162,6 @@ sub help {
163
162
id -g [-nr] [user]
164
163
id -u [-nr] [user]
165
164
id -p [user]
166
- id -h
167
165
id -a
168
166
" ;
169
167
exit 1;
@@ -175,7 +173,7 @@ id - show user information
175
173
176
174
=head1 SYNOPSIS
177
175
178
- id [-Gnuagraph ] [user]
176
+ id [-Gnuagrap ] [user]
179
177
180
178
=head1 DESCRIPTION
181
179
@@ -200,17 +198,14 @@ Nothing. The option is included for compatibility with some versions of id.
200
198
=item I<-g >
201
199
Display the effective group ID.
202
200
203
- =item I<-h >
204
- Display the usage help message.
205
-
206
201
=item I<-n >
207
202
Force the options C<-G > , C<-g > and C<-u > to display the matching name
208
203
instead of the number for the user and group IDs. If any of the ID
209
204
numbers do not have a matching name, the number will be displayed
210
205
as usual.
211
206
212
207
=item I<-p >
213
- Display the user/group information on seperate lines. If the username
208
+ Display the user/group information on separate lines. If the username
214
209
returned by getlogin is different than the username associated with
215
210
the calling program's user ID, it is displayed preceded by the phrase
216
211
"login". The real ID, effective user ID (if different), real group ID,
0 commit comments