Tidy/correct tl(1) option parsing

1 files changed, 13 insertions, 9 deletions

diff --git a/bin/tl b/bin/tl
index 5d494f5a..baa6fb2b 100755
--- a/bin/tl
+++ b/bin/tl
@@ -1,17 +1,21 @@
 #!/bin/sh
-# Tag lines from files or stdin with a string prefix or suffix.
+# Tag lines from files or stdin with a string prefix or suffix
+self=tl
 
-# Parse options out, give help if necessary
+# Parse options out
 while getopts 'p:s:' opt ; do
     case $opt in
-        p)
-            pref=$OPTARG
-            ;;
-        s)
-            suff=$OPTARG
-            ;;
+
+        # Prefix
+        p) pref=$OPTARG ;;
+
+        # Suffix
+        s) suff=$OPTARG ;;
+
+        # Unknown option
         \?)
-            usage >&2
+            printf >&2 '%s: Unknown option %s\n' \
+                "$self" "$opt"
             exit 2
             ;;
     esac