From c09112454417693693c265963b1f829695611b2d Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Tue, 7 Apr 2015 21:20:57 -0400
Subject: add --help option for sbofixinfo

---
 README     | 6 ++++++
 sbofixinfo | 9 ++++++++-
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/README b/README
index 3c1ff07..647fee4 100644
--- a/README
+++ b/README
@@ -7,3 +7,9 @@ sbofixinfo - try to fix malformed .info files
 sbolint - examine a SBo tarball or dir, look for common errors
 sbosearch - search local SBo repo
 sbosubmit - submit to SBo, from command line
+
+Each script supports a --help option. Further documentation will be
+in the form of comments in the scripts.
+
+Some of these are shell scripts, some are perl. Comments are hopefully
+in English :)
diff --git a/sbofixinfo b/sbofixinfo
index fc7b8e0..3e3aa2b 100755
--- a/sbofixinfo
+++ b/sbofixinfo
@@ -111,7 +111,14 @@ B<sbolint>(1), B<sbosearch>(1)
 PRGNAM VERSION HOMEPAGE DOWNLOAD MD5SUM DOWNLOAD_x86_64 MD5SUM_x86_64 REQUIRES MAINTAINER EMAIL
 /;
 
-die "$SELF v$VERSION\nUsage: $SELF [-b] infofile <infofile ...>\n" unless @ARGV;
+die "$SELF v$VERSION\nUsage: $SELF [--help] [-b] infofile <infofile ...>\n" unless @ARGV;
+
+if($ARGV[0] eq '--help') {
+	no warnings;
+	require FindBin;
+	system("perldoc $FindBin::RealScript");
+	exit 0;
+}
 
 if($ARGV[0] eq '-b') {
 	$backup = 1;
-- 
cgit v1.2.3