envstore: usage: Just refer to perldoc, don't call it all the time

1 files changed, 2 insertions, 1 deletions

diff --git a/bin/envstore b/bin/envstore
index fb6b87b..414d4a3 100755
--- a/bin/envstore
+++ b/bin/envstore
@@ -14,7 +14,8 @@ my $arg2 = shift;
 my ($key, $value);
 
 sub usage {
-	exec('perldoc', '-F', $0) or die("Yo, cannot execute perldoc -F $0, so do it yourself");
+	print STDERR "Invalid invocation - see perldoc -F $0\n";
+	exit(1);
 }
 
 sub check_store {