diff options
author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-01-19 17:12:34 +0000 |
---|---|---|
committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-01-19 17:12:34 +0000 |
commit | 9fe7a278c19ad67b8e79c73313b9fb75d18c2878 (patch) | |
tree | 73df3be50386e9c7311f221abef61aa883558172 | |
parent | 8fd4bfbeb0f5ec6604daf0f6b030f37f58b4b7ac (diff) |
Now ignores thorns beginning with # or ending with ~ .
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@77 17b73243-c579-4c4c-a9d2-2d5706c11dac
-rw-r--r-- | lib/sbin/BuildActiveThorns.pl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lib/sbin/BuildActiveThorns.pl b/lib/sbin/BuildActiveThorns.pl index cc8a989d..c4b98083 100644 --- a/lib/sbin/BuildActiveThorns.pl +++ b/lib/sbin/BuildActiveThorns.pl @@ -18,8 +18,13 @@ open(TOOLKITS, "ls|"); while(<TOOLKITS>) { chop; + + # Ignore CVS and backup stuff next if (m:^CVS$:); + next if (m:^\#:); + next if (m:~$:); + # Just pick directories if( -d $_) { push (@toolkits, $_); @@ -37,6 +42,13 @@ foreach $toolkit (@toolkits) while(<THORNLIST>) { chop; + + # Ignore CVS and backup stuff + next if (m:^CVS$:); + next if (m:^\#:); + next if (m:~$:); + + # Just pick directories if( -d $_) { push(@total_thornlist, "$toolkit/$_"); |