diff --git a/src/cap5/caget.pl@ b/src/cap5/caget.pl@ index 98b529d2f..8f5cf6c31 100644 --- a/src/cap5/caget.pl@ +++ b/src/cap5/caget.pl@ @@ -16,7 +16,7 @@ HELP_MESSAGE() if $opt_h; $opt_d = "DBR_$opt_d" if $opt_d && $opt_d !~ m/^DBR_/; -die "No pv name specified. ('caget -h' for help.)\n" +die "No pv name specified. ('caget -h' gives help.)\n" unless @ARGV; my @chans = map { CA->new($_); } @ARGV; diff --git a/src/cap5/cainfo.pl@ b/src/cap5/cainfo.pl@ index 2362ef70b..301f1a979 100644 --- a/src/cap5/cainfo.pl@ +++ b/src/cap5/cainfo.pl@ @@ -13,7 +13,7 @@ $Getopt::Std::OUTPUT_HELP_VERSION = 1; HELP_MESSAGE() unless getopts('hw:'); HELP_MESSAGE() if $opt_h; -die "No pv name specified. ('cainfo -h' for help.)\n" +die "No pv name specified. ('cainfo -h' gives help.)\n" unless @ARGV; my @chans = map { CA->new($_); } @ARGV; diff --git a/src/cap5/camonitor.pl@ b/src/cap5/camonitor.pl@ index f8fe2cefb..c570df38b 100644 --- a/src/cap5/camonitor.pl@ +++ b/src/cap5/camonitor.pl@ @@ -14,7 +14,7 @@ $Getopt::Std::OUTPUT_HELP_VERSION = 1; HELP_MESSAGE() unless getopts('0:C:e:f:g:hm:nsw:'); HELP_MESSAGE() if $opt_h; -die "No pv name specified. ('camonitor -h' for help.)\n" +die "No pv name specified. ('camonitor -h' gives help.)\n" unless @ARGV; my %monitors; @@ -107,11 +107,11 @@ sub HELP_MESSAGE { " -w : Wait time, specifies longer CA timeout, default is $opt_w second\n", " -m : Specify CA event mask to use, with being any combination of\n", " 'v' (value), 'a' (alarm), 'l' (log). Default: '$opt_m'\n", - "Timestamps:\n", - " Default: Print absolute timestamps (as reported by CA)\n", - " -r: Relative timestamps (time elapsed since start of program)\n", - " -i: Incremental timestamps (time elapsed since last update)\n", - " -I: Incremental timestamps (time elapsed since last update for this channel)\n", +# "Timestamps:\n", +# " Default: Print absolute timestamps (as reported by CA)\n", +# " -r: Relative timestamps (time elapsed since start of program)\n", +# " -i: Incremental timestamps (time elapsed since last update)\n", +# " -I: Incremental timestamps (time elapsed since last update for this channel)\n", "Enum format:\n", " -n: Print DBF_ENUM values as number (default are enum string values)\n", "Arrays: Value format: print number of values, then list of values\n", diff --git a/src/cap5/caput.pl@ b/src/cap5/caput.pl@ index 84d53ee23..bd9b367f3 100644 --- a/src/cap5/caput.pl@ +++ b/src/cap5/caput.pl@ @@ -14,11 +14,11 @@ $Getopt::Std::OUTPUT_HELP_VERSION = 1; HELP_MESSAGE() unless getopts('achlnstw:'); HELP_MESSAGE() if $opt_h; -die "No pv name specified. ('caput -h' for help.)\n" +die "No pv name specified. ('caput -h' gives help.)\n" unless @ARGV; my $pv = shift; -die "No value specified. ('caput -h' for help.)\n" +die "No value specified. ('caput -h' gives help.)\n" unless @ARGV; my $chan = CA->new($pv);