Just another fix for my latest commit on sorting an empty thornlist.

git-svn-id: http://svn.cactuscode.org/flesh/trunk@3707 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 6 insertions, 6 deletions

diff --git a/lib/sbin/CST b/lib/sbin/CST
index 4feaf2c4..d85e608d 100644
--- a/lib/sbin/CST
+++ b/lib/sbin/CST
@@ -6,7 +6,7 @@
 #  @desc
 #             Parses the the configuration files for thorns.
 #  @enddesc
-#  @version   $Header: /mnt/data2/cvs2svn/cvs-repositories/Cactus/lib/sbin/CST,v 1.68 2004-05-09 21:57:37 tradke Exp $
+#  @version   $Header: /mnt/data2/cvs2svn/cvs-repositories/Cactus/lib/sbin/CST,v 1.69 2004-05-09 23:01:24 tradke Exp $
 #@@*/
 
 # Global parameter to track the number of errors from the CST
@@ -580,7 +580,7 @@ sub TopoSort
     }
   }
 
-  if (@data)
+  if ($data)
   {
     &WriteFile("$bindings_dir/linklist", \$data);
 
@@ -595,11 +595,11 @@ sub TopoSort
     &CST_error (0,  "Tsort script returned $exit_value\n") if $exit_value;
     &CST_error (0,  "Tsort script received signal $signal_num\n") if $signal_num;
     &CST_error (0,  "Tsort script dumped core\n" ) if $dumped_core;
-  }
 
-  $data =  join(' ', split("\n", $data));
-  $data =~ s/dummy//;
-  $data =~ s/  / /;
+    $data =  join(' ', split("\n", $data));
+    $data =~ s/dummy//;
+    $data =~ s/  / /;
+  }
 
   return $data;
 }