diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-02-01 10:13:19 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-02-01 10:13:19 +0000 |
| commit | 7c91c1aef1c5244fee32729a6085efb73b8a4082 (patch) | |
| tree | 50817d45f3514b9aeba1cd605ce98d89732522ca | |
| parent | 3f2a460d565725f74c39651142a0b34e893c6b64 (diff) | |
Tom's change to put some strings in uppercase
git-svn-id: http://svn.cactuscode.org/flesh/trunk@159 17b73243-c579-4c4c-a9d2-2d5706c11dac
| -rw-r--r-- | lib/sbin/config_parser.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/sbin/config_parser.pl b/lib/sbin/config_parser.pl index 2e73e9ef..043caf10 100644 --- a/lib/sbin/config_parser.pl +++ b/lib/sbin/config_parser.pl @@ -76,6 +76,7 @@ require "$sbin_dir/output_config.pl"; # Parse the interface.ccl files %interface_database = &create_interface_database(%thorns); + if($debug_interface) { &print_interface_database(%interface_database); @@ -662,14 +663,14 @@ EOT print OUT "$decl \\\n"; } - $header = "ParameterCProtected$implementation.h"; + $header = "ParameterCProtected\U$implementation\E.h"; $decl = "DECLARE_PROTECTED_\U$implementation\E_STRUCT_PARAMS"; if( -r $header) { print OUT "$decl \\\n"; } - $header = "ParameterCPrivate$thorn.h"; + $header = "ParameterCPrivate\U$thorn\E.h"; $decl = "DECLARE_PRIVATE_\U$thorn\E_STRUCT_PARAMS"; if( -r $header) { |