whitespace tweak in tcl code

diff --git a/testsuite/systemtap.syscall/syscall.exp b/testsuite/systemtap.syscall/syscall.exp
index 2313403f5205dd673e83fa61b58bf4bc713a1ced..22e9dc07e37925d9b2fc3b5a883fa889309e1cbf 100644 (file)
--- a/testsuite/systemtap.syscall/syscall.exp
+++ b/testsuite/systemtap.syscall/syscall.exp
@@ -48,15 +48,9 @@ proc test_procedure {} {
 
     set do_32_bit_pass 1    
     switch -regexp $::tcl_platform(machine) {
-       ^(x86_64|ppc64)$ {
-           set flags "additional_flags=-m32"
-       }
-       ^s390x$ {
-           set flags "additional_flags=-m31"
-       }
-       ^ia64$ {
-           set do_32_bit_pass 0
-       }
+       {^(x86_64|ppc64)$} { set flags "additional_flags=-m32" }
+       {^s390x$} { set flags "additional_flags=-m31" }
+       {^ia64$} { set do_32_bit_pass 0 }
     }
 
     if {$do_32_bit_pass} {