diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-12-21 08:47:58 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-12-21 08:47:58 +0000 |
commit | 53f1855c563e947f5b13098a1c8b7cacec6e5ff8 (patch) | |
tree | 82ed2edba5c34cbc95178035e48a09f3684ea41e /lib/sbin | |
parent | 1d70749e8f1781800740f759cac3b50f29222540 (diff) |
Fixed checking of active thorns with thornlist
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1208 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin')
-rw-r--r-- | lib/sbin/Runtest.pl | 5 |
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; } |