diff options
author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-04-01 15:07:41 +0000 |
---|---|---|
committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-04-01 15:07:41 +0000 |
commit | 0ce6e331ff9cf17f3fe39dc7e25669c8b9f753db (patch) | |
tree | 730f90a001857398ae9e00cf4bb15aee908ab9d0 /lib/sbin/create_c_stuff.pl | |
parent | 7be057d3c62ce82f32e4ae99cc1bacb679b03c89 (diff) |
Put & in front of some subroutine calls to be compatable with perl 4
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@424 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/create_c_stuff.pl')
-rw-r--r-- | lib/sbin/create_c_stuff.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/sbin/create_c_stuff.pl b/lib/sbin/create_c_stuff.pl index af68a0da..65e7f919 100644 --- a/lib/sbin/create_c_stuff.pl +++ b/lib/sbin/create_c_stuff.pl @@ -59,7 +59,7 @@ sub CreateParameterBindingFile push(@data,( "struct ", "{")); - foreach $parameter (order_params(scalar(keys %parameters), %parameters,%parameter_database)) + foreach $parameter (&order_params(scalar(keys %parameters), %parameters,%parameter_database)) { $type = $parameter_database{"\U$parameters{$parameter} $parameter\E type"}; @@ -398,7 +398,7 @@ sub CreateCStructureParameterHeader push(@data,( "extern struct ", "{")); - foreach $parameter (order_params(scalar(keys %parameters), %parameters,%parameter_database)) + foreach $parameter (&order_params(scalar(keys %parameters), %parameters,%parameter_database)) { $type = $parameter_database{"\U$parameters{$parameter} $parameter\E type"}; |