diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-12-21 10:44:56 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-12-21 10:44:56 +0000 |
commit | abff685512bb35105658359595d22125ed9470d3 (patch) | |
tree | 54f74b0f16093904424821d7209c44579c2482b4 | |
parent | 6c5275ba3e9f5f7ae963b5ebaee4b73fb23388ae (diff) |
Fix for checking ActiveThorns on NT
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1210 17b73243-c579-4c4c-a9d2-2d5706c11dac
-rw-r--r-- | lib/sbin/Runtest.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/sbin/Runtest.pl b/lib/sbin/Runtest.pl index c5a4be89..d0a11cbf 100644 --- a/lib/sbin/Runtest.pl +++ b/lib/sbin/Runtest.pl @@ -125,7 +125,7 @@ foreach $t (@testfiles) } if ($line =~ /^\s*ActiveThorns\s*=\s*\"(.*)\"/i) { - @activethorns = (@activethorns,$1); + $activethorns[$ntests-1] = $1; } } close IN; @@ -154,7 +154,7 @@ if ($tests =~ /All/) { foreach $tthorn (@allthorns) { $tthorn =~ m:.*/(.*)$:; - $thornpart = "\U$1"; + $thornpart = "\U$1"; if ($thornpart eq $th) { $foundit = 1; |