diff options
author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-10-25 09:09:27 +0000 |
---|---|---|
committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-10-25 09:09:27 +0000 |
commit | 61e93bc15fbccaa9e8319384224db3335a4a5358 (patch) | |
tree | a2a80987eb4160c710e121beadedcd04e91566d6 /lib/sbin/CST | |
parent | 9bf28bf5ac1cb628ed935d4498694a7482b32de0 (diff) |
Fixed some things noticed by perl -w .
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1102 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/CST')
-rw-r--r-- | lib/sbin/CST | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/sbin/CST b/lib/sbin/CST index 863297cf..e88e08ef 100644 --- a/lib/sbin/CST +++ b/lib/sbin/CST @@ -6,7 +6,7 @@ # @desc # Parses the the configuration files for thorns. # @enddesc -# @version $Header: /mnt/data2/cvs2svn/cvs-repositories/Cactus/lib/sbin/CST,v 1.32 1999-10-24 22:55:48 goodale Exp $ +# @version $Header: /mnt/data2/cvs2svn/cvs-repositories/Cactus/lib/sbin/CST,v 1.33 1999-10-25 09:09:26 goodale Exp $ #@@*/ # Global parameter to track the number of errors from the CST @@ -279,11 +279,11 @@ sub CreateThornList sub get_global_parameters { - my(%parameter_database) = @_; + my($rhparameter_db) = @_; my(%global_parameters); my($param); - foreach $param (split(/ /,$parameter_database{"GLOBAL PARAMETERS"})) + foreach $param (split(/ /,$rhparameter_db->{"GLOBAL PARAMETERS"})) { if($param =~ m/(.*)::(.*)/) { |