From daa3ac4a5340030d9a2dd8bad5776b1130f103b2 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Sun, 7 Jun 2009 18:47:36 +0200
Subject: envstore: usage: Use perldoc

---
 bin/envstore | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/bin/envstore b/bin/envstore
index adf8230..fb6b87b 100755
--- a/bin/envstore
+++ b/bin/envstore
@@ -14,10 +14,7 @@ my $arg2 = shift;
 my ($key, $value);
 
 sub usage {
-	print STDERR "Usage: envstore <eval|show|clear>\n";
-	print STDERR "       envstore save <var> [value]\n";
-	print STDERR "       envstore rm <var>\n";
-	exit(1);
+	exec('perldoc', '-F', $0) or die("Yo, cannot execute perldoc -F $0, so do it yourself");
 }
 
 sub check_store {
-- 
cgit v1.2.3