Categorise missing arg as usage error

Rather than a croak exception. Also exit with "2", like shell utils
often do when misused rather than broken.

1 files changed, 5 insertions, 1 deletions

diff --git a/checkem b/checkem
index b58ccbb..2181fca 100755
--- a/checkem
+++ b/checkem
@@ -27,7 +27,11 @@ use 5.009003;
 our $VERSION = 2.5;
 
 # If no arguments, work with the current working directory
-croak 'Need at least one dir to search' if !@ARGV;
+if ( !@ARGV ) {
+    say {*STDERR} 'Need at least one dir to search'
+      or carp 'Failed stderr write';
+    exit 2;
+}
 
 # Convenience keys into stat() return array for clarity and to appease
 # Perl::Critic