diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-01-20 13:56:07 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-01-20 13:56:07 +0000 |
commit | cc5dc79f4fdcc1d885e3612ae8b7de4c292359d0 (patch) | |
tree | 376225ef3d4065c37b1a79ae0112af331b50d626 | |
parent | 3b0db02df49091ee367c173f730a767a3f6a46cd (diff) |
Don't strip thorn_ off directory names.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@91 17b73243-c579-4c4c-a9d2-2d5706c11dac
-rw-r--r-- | lib/sbin/config_parser.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/sbin/config_parser.pl b/lib/sbin/config_parser.pl index 675e4f93..f09b8bba 100644 --- a/lib/sbin/config_parser.pl +++ b/lib/sbin/config_parser.pl @@ -117,7 +117,6 @@ sub create_thorn_list while(<ACTIVE>) { - s/thorn_//g; s/\#(.*)$//g; s/\n//g; # Different from chop... next if (m:^\s*$:); @@ -127,7 +126,8 @@ sub create_thorn_list $toolkit = $1; $thorn_name = $2; - + $thorn_name =~ s/thorn_//; + if( -r "$cctk_home/toolkits/$thorn/param.ccl" && -r "$cctk_home/toolkits/$thorn/interface.ccl" && -r "$cctk_home/toolkits/$thorn/schedule.ccl") @@ -283,7 +283,7 @@ EOT close OUT; - open (OUT, ">make.code.defn") || die "Cannot open ake.code.defn"; + open (OUT, ">make.code.defn") || die "Cannot open make.code.defn"; print OUT "SRCS = Bindings.c\n"; |