From 50b05a273f6989b19d40971b79061883b0e7eced Mon Sep 17 00:00:00 2001
From: "Paul Buetow (lxpbuetowlap.united.domain)" <paul.buetow@1und1.de>
Date: Sun, 16 Mar 2014 14:40:57 +0100
Subject: some stuff on documentation

---
 src/japi | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/japi b/src/japi
index 15bdc68..644ef42 100755
--- a/src/japi
+++ b/src/japi
@@ -87,14 +87,17 @@ package Japi::Japi {
   sub say_synopsis {
     my ($self, $ec) = @_;
     my $opts = $self->opts;
-    my %tstr = ( '=s' => 'STRING', '' => 'BOOL' );
+    my %tstr = ( '=s' => 'STRING', '' => '' );
     $ec //= 0;
 
     say "Synopsis: $0";
     for (sort keys %$opts) {
       my $tstr = $tstr{$opts->{$_}{type}} // '';
-      my $value = $opts->{$_}{value} // '';
-      say "\t[--$_ <$tstr:$value>]";
+      if ($tstr ne '') {
+        my $value = $opts->{$_}{value} // '';
+        $tstr = " <$tstr:$value>";
+      }
+      say "\t[--$_$tstr]";
     }
     say 'You may also read the manual page';
     exit $ec;
-- 
cgit v1.2.3