* lib/remote.exp (standard_file); Add else clause.

Signed-off-by: Ben Elliston <bje@gnu.org>

diff --git a/ChangeLog b/ChangeLog
index 4b6c937..78ab33e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2016-01-23  Simon Marchi  <simon.marchi@ericsson.com>
+
+       * lib/remote.exp (standard_file); Add else clause.
+
 2016-01-16  Ben Elliston  <bje@gnu.org>
 
        * runtest.exp (runtest): Improve comment about --status.

diff --git a/lib/remote.exp b/lib/remote.exp
index bddf2ae..688680b 100644 (file)
--- a/lib/remote.exp
+++ b/lib/remote.exp
@@ -762,21 +762,22 @@ proc standard_file { dest op args } {
                return
            }
        }
-    }
-    switch $op {
-       exists {
-           set status [remote_exec $dest "test -f $file"]
-           return [lindex $status 0]
-       }
-       delete {
-           set file ""
-           # Allow multiple files to be deleted at once.
-           foreach x $args {
-               append file " $x"
+    } else {
+       switch $op {
+           exists {
+               set status [remote_exec $dest "test -f $file"]
+               return [lindex $status 0]
+           }
+           delete {
+               set file ""
+               # Allow multiple files to be deleted at once.
+               foreach x $args {
+                   append file " $x"
+               }
+               verbose "remote_file deleting $file"
+               set status [remote_exec $dest "rm -f $file"]
+               return [lindex $status 0]
            }
-           verbose "remote_file deleting $file"
-           set status [remote_exec $dest "rm -f $file"]
-           return [lindex $status 0]
        }
     }
 }