From 7485fdafcf89b96cc2194aed57e115adebe20580 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Thu, 14 Jun 2012 13:56:20 +0000
Subject: fix fCmd-6.19 on win32, which was broken by [a7e00a0e02]

---
 tests/fCmd.test | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/tests/fCmd.test b/tests/fCmd.test
index f2adcef..4775f05 100644
--- a/tests/fCmd.test
+++ b/tests/fCmd.test
@@ -48,15 +48,15 @@ if {[testConstraint unix]} {
 	set group [lindex $groupList 0]
 	testConstraint foundGroup 1
     }
+}
 
-    proc dev dir {
-	file stat $dir stat
-	return $stat(dev)
-    }
+proc dev dir {
+    file stat $dir stat
+    return $stat(dev)
+}
 
-    if {[catch {makeDirectory tcl[pid] /tmp} tmpspace] == 0} {
-	testConstraint xdev [expr {([dev .] != [dev $tmpspace])}]
-    }
+if {[catch {makeDirectory tcl[pid] /tmp} tmpspace] == 0} {
+    testConstraint xdev [expr {([dev .] != [dev $tmpspace])}]
 }
 
 # Also used in winFCmd...
-- 
cgit v0.12