Ignores everyting after a # in a ThornList.

Now can just type q to exit.

Tom


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

1 files changed, 3 insertions, 2 deletions

diff --git a/lib/sbin/Runtest.pl b/lib/sbin/Runtest.pl
index 10554579..949cf66c 100644
--- a/lib/sbin/Runtest.pl
+++ b/lib/sbin/Runtest.pl
@@ -75,6 +75,7 @@ if (!open (AT, "< $scratchdir${sep}ThornList")) {
 } else {
     printf ("Reading Thorn List\n");
     while (<AT>) {
+        s:\#.*::; # Get rid of comment lines.
         @t = split(' ');
         foreach $T (@t) {
             if (-d "arrangements${sep}$T${sep}test") {
@@ -112,7 +113,7 @@ if ($tests =~ /All/) {
     $inp{$num} = $t;
     $testnum{$ntests} = $num;
   }
-  while (!($choice =~ /quit/i) ) {
+  while (!($choice =~ /q(uit)?/i) ) {
     print "\n--- Menu ---\n";
     $sp = "     ";
     for ($i=1;$i<$ntests+1;$i++) {
@@ -124,7 +125,7 @@ if ($tests =~ /All/) {
     $choice =~ s/\s//;
     print "\n";
     $ip = $inp{$testnum{$choice}};
-    if (!($choice =~ m/quit/i)) {
+    if (!($choice =~ m/q(uit)?/i)) {
       &runtest($ip,$choice);
     }
   }