diff options
author | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2003-12-18 17:21:05 +0000 |
---|---|---|
committer | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2003-12-18 17:21:05 +0000 |
commit | 2323511586c79f861126da43928a961aaa7dbc7d (patch) | |
tree | f5dd921e6fe753d5b5f6aeeb1f7f9d4ae50dba63 /lib/sbin/CreateFunctionBindings.pl | |
parent | 1de948e828be6804da203cdea6c3f2114760fa7d (diff) |
Fixed a regex to parse a function pointer argument list.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3478 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 97e08b4b..52bed0a5 100644 --- a/lib/sbin/CreateFunctionBindings.pl +++ b/lib/sbin/CreateFunctionBindings.pl @@ -460,7 +460,7 @@ sub ParseArgumentsList my @fptrargs = (); if ($Arguments =~ s/CCTK_FPOINTER//) { - while ($Arguments =~ s/(.*?)\s*(\(.*\s.*?\))(.*)/\1FPTRARGS\3/g) + while ($Arguments =~ s/(.*?)\s*(\(.*\s.*?\))(.*)/\1FPTRARGS\3/) { my $tempargs = $2; $tempargs =~ s/\((.*)\)/\1/; |