Skip to content

Commit

Permalink
cmp: remove -? (#567)
Browse files Browse the repository at this point in the history
* Non-standard -? option doesn't exist in BSD versions of cmp either
* For systems with no perldoc command installed, we have a bin/perldoc, so running "perl perldoc cmp" is preferred (i.e. the same way to show a manual for maze and other programs too)
  • Loading branch information
mknos committed Apr 18, 2024
1 parent 2f1df62 commit 7f078cb
Showing 1 changed file with 1 addition and 15 deletions.
16 changes: 1 addition & 15 deletions bin/cmp
Expand Up @@ -70,8 +70,7 @@ my $lines_read = 0;
my $saw_difference;

my %opt;
getopts('?ls', \%opt) or usage();
manual() if $opt{'?'};
getopts('ls', \%opt) or usage();
if ($opt{'l'}) {
if ($opt{'s'}) {
warn "$Program: options -l and -s are incompatible\n";
Expand Down Expand Up @@ -231,15 +230,6 @@ sub usage {
exit EX_USAGE;
}

sub manual {
require Pod::Usage;

Pod::Usage::pod2usage({
-exitval => EX_SUCCESS,
-verbose => 2,
});
}

__END__
=head1 NAME
Expand Down Expand Up @@ -290,10 +280,6 @@ list differences; return the byte number and the differing byte values
for each difference between the two files. The byte number is given
in decimal, and the byte values are given in octal.
=item -?
show the documentation
=back
=head1 ENVIRONMENT
Expand Down

0 comments on commit 7f078cb

Please sign in to comment.