diff options
author | knarf <knarf@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2009-09-11 16:07:35 +0000 |
---|---|---|
committer | knarf <knarf@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2009-09-11 16:07:35 +0000 |
commit | a46b2a6daa2f3f85ae283e6136609de1c31b930e (patch) | |
tree | de9cfebb29104f89bea63d5e353650238280f526 /lib/sbin/parameter_parser.pl | |
parent | 3b98e158a7a335b7120a6b8308c3be6d8b5cb584 (diff) |
simplify code by combining similar (debug) functions
git-svn-id: http://svn.cactuscode.org/flesh/trunk@4569 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/parameter_parser.pl')
-rw-r--r-- | lib/sbin/parameter_parser.pl | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/lib/sbin/parameter_parser.pl b/lib/sbin/parameter_parser.pl index 220acf1f..9f96b420 100644 --- a/lib/sbin/parameter_parser.pl +++ b/lib/sbin/parameter_parser.pl @@ -13,8 +13,6 @@ #%parameter_database = create_parameter_database(%implementations); -#&print_parameter_database(%parameter_database); - #/*@@ # @routine create_parameter_database # @date Wed Sep 16 11:45:18 1998 @@ -512,26 +510,6 @@ sub parse_param_ccl } #/*@@ -# @routine print_parameter_database -# @date Wed Sep 16 14:58:52 1998 -# @author Tom Goodale -# @desc -# Prints out a parameter database. -# @enddesc -#@@*/ -sub print_parameter_database -{ - my(%parameter_database) = @_; - my($field); - - foreach $field ( sort keys %parameter_database ) - { - print "$field has value $parameter_database{$field}\n"; - } -} - - -#/*@@ # @routine PrintParameterStatistics # @date Sun Sep 19 13:04:18 1999 # @author Tom Goodale |