Merge pull request #396 from mknos/cat-question

cat: stop accepting -? flag
briandfoy · Jan 2, 2024 · ccd99ac · ccd99ac
2 parents a1d0ceb + 50e2bc0
commit ccd99ac
Showing 1 changed file with 4 additions and 7 deletions.
diff --git a/bin/cat b/bin/cat
@@ -23,13 +23,10 @@ my ($VERSION) = '1.3';
 
 my $Program = basename($0);
 
-getopts ('benstuv?', \my %options)  or do {
-	print <<EOF;
-$Program version $VERSION
-$Program [-benstuv] [file ...]
-EOF
-
-	exit EX_FAILURE;
+getopts('benstuv', \my %options)  or do {
+    warn "$Program version $VERSION\n";
+    warn "usage: $Program [-benstuv] [file ...]\n";
+    exit EX_FAILURE;
 };
 
 my $ends              = exists $options{'e'};