allow -n with -period

ca

@@ -2,12 +2,12 @@
 
 # ca* by Dirk Zimoch
 # $Source: /cvs/G/EPICS/App/scripts/ca,v $
-# $Date: 2016/10/04 11:57:23 $
+# $Date: 2016/10/04 12:07:47 $
 
 regsub -all {\$} {ca* by Dirk Zimoch
 $Source: /cvs/G/EPICS/App/scripts/ca,v $
-$Revision: 1.33 $
-$Date: 2016/10/04 11:57:23 $} {} version
+$Revision: 1.34 $
+$Date: 2016/10/04 12:07:47 $} {} version
 
 package require Tclx
 package require Epics
@@ -461,10 +461,11 @@ while 1 {
             }
         }
     }
-    if {![info exists period]} break
+    if {![info exists period]} { break }
+    if {$n > 0 && [incr n -1] <= 1} { break }
     if {[info exists sep]} {puts $sep}
     after [expr int($period*1000)]
-} 
+}
 
 exit $faults