From ab0ecbfdf518cb71c26764e15f12e41029e7eb86 Mon Sep 17 00:00:00 2001
From: portmann <portmann>
Date: Sat, 4 Apr 2015 20:45:05 +0000
Subject: [PATCH] bug fix in finding flags. Use <begin word>-n<end word> to let
 -num, -nostat, -noname. -noegu pass

---
 ca | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/ca b/ca
index caf52ae..91b5aa5 100755
--- a/ca
+++ b/ca
@@ -2,12 +2,12 @@
 
 # ca* by Dirk Zimoch
 # $Source: /cvs/G/EPICS/App/scripts/ca,v $
-# $Date: 2015/03/31 15:46:11 $
+# $Date: 2015/04/04 20:45:05 $
 
 regsub -all {\$} {ca* by Dirk Zimoch
 $Source: /cvs/G/EPICS/App/scripts/ca,v $
-$Revision: 1.27 $
-$Date: 2015/03/31 15:46:11 $} {} version
+$Revision: 1.28 $
+$Date: 2015/04/04 20:45:05 $} {} version
 
 package require Tclx
 package require Epics
@@ -89,9 +89,7 @@ while {[string match "-*" [set flag [lindex $argv 0]]]} {
                                set argv [lrange $argv 2 end] }
         {^-prec}             { set prec [lindex $argv 1]
                                set argv [lrange $argv 2 end] }
-        {^-num}              { lappend flags $flag
-                               set argv [lrange $argv 1 end] }
-        {^-n}                { check_n [lindex $argv 1];
+        {^-n$}                { check_n [lindex $argv 1];
                                set argv [lrange $argv 2 end] }
         default              { check_flag $flag
                                set argv [lrange $argv 1 end] }