Fixed checking of active thorns with thornlist

git-svn-id: http://svn.cactuscode.org/flesh/trunk@1208 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 3e1933c4..c5a4be89 100644
--- a/lib/sbin/Runtest.pl
+++ b/lib/sbin/Runtest.pl
@@ -148,13 +148,14 @@ if ($tests =~ /All/) {
     @at = split(' ',$active);
     foreach $th (@at)
     {
+      $th = "\U$th";
       $foundit = 0;
 
       foreach $tthorn  (@allthorns)
       {
         $tthorn =~ m:.*/(.*)$:;
-	$thornpart = $1;  
-	if ($thornpart =~ /$th/i)
+	$thornpart = "\U$1"; 
+	if ($thornpart eq $th)
 	{
 	  $foundit = 1;
 	}