diff options
author | rideout <rideout@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2003-12-05 15:55:26 +0000 |
---|---|---|
committer | rideout <rideout@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2003-12-05 15:55:26 +0000 |
commit | 4226aa6e090d0b2c150fe30864c67a0d2330967a (patch) | |
tree | 7b3f6e52bd5be4c30ad7a03198ec3c417f82a2bb /lib/sbin/CreateFunctionBindings.pl | |
parent | d27b94cc2be513b9c8b1dc20a61366fe49e49106 (diff) |
interface.ccl should be case insensitive, thus so should the return
types of aliased functions.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3469 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/CreateFunctionBindings.pl')
-rw-r--r-- | lib/sbin/CreateFunctionBindings.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/sbin/CreateFunctionBindings.pl b/lib/sbin/CreateFunctionBindings.pl index 2668aae1..ce3280c9 100644 --- a/lib/sbin/CreateFunctionBindings.pl +++ b/lib/sbin/CreateFunctionBindings.pl @@ -349,7 +349,7 @@ sub FunctionDatabase ($warnings,$nstrings,$nstringptrs,@arglist)=&ParseArgumentsList($Arguments, $thorn, $FunctionName); $Function->{"Strings"} = $nstrings; $Function->{"String pointers"} = $nstringptrs; - $ReturnType = $interface_db->{"\U${thorn} FUNCTION\E $FunctionName RET"}; + $ReturnType = uc $interface_db->{"\U${thorn} FUNCTION\E $FunctionName RET"}; $FunctionName =~ /([a-zA-Z][a-zA-Z0-9_]*)/; $Function->{"Name"}=$1; if ($warnings) |