bugfix: putq with multiple channel did not work

ca

@@ -2,12 +2,12 @@
 
 # ca* by Dirk Zimoch
 # $Source: /cvs/G/EPICS/App/scripts/ca,v $
-# $Date: 2015/06/03 09:12:16 $
+# $Date: 2016/03/08 10:03:12 $
 
 regsub -all {\$} {ca* by Dirk Zimoch
 $Source: /cvs/G/EPICS/App/scripts/ca,v $
-$Revision: 1.31 $
-$Date: 2015/06/03 09:12:16 $} {} version
+$Revision: 1.32 $
+$Date: 2016/03/08 10:03:12 $} {} version
 
 package require Tclx
 package require Epics
@@ -340,8 +340,8 @@ switch $command {
                 puts stderr $msg
                 incr faults
             }
-            if {$command == "putq"} { exit $faults }
         }
+        if {$command == "putq"} { exit $faults }
     }
     "mon" {
         foreach channel $argv {