diff options
| author | hawke <hawke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-05-10 13:53:39 +0000 |
|---|---|---|
| committer | hawke <hawke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-05-10 13:53:39 +0000 |
| commit | bcb1c14ca65faf8caeaf5e37e26dc0b3d54bc484 (patch) | |
| tree | 9611e7eaaf5c778b5d7e6e1505faa6f04238c709 /lib/sbin/CreateFunctionBindings.pl | |
| parent | ce0caabb85dbde372f6548f5bdfc647ca6bf5f0a (diff) | |
Match the intent IN | OUT | INOUT exactly, so that (e.g.) INT is not a valid intent.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3710 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 514e45f9..ed924f55 100644 --- a/lib/sbin/CreateFunctionBindings.pl +++ b/lib/sbin/CreateFunctionBindings.pl @@ -689,7 +689,7 @@ sub ParseArgument if ($name) # (meaning argument has three whitespace separated components) { - if ($intent !~ /(IN|OUT|INOUT)/) + if ($intent !~ /^(IN|OUT|INOUT)$/) { my $message = "Thorn $Thorn, Function $Function:\nThe intent statement must be either IN, OUT or INOUT.\nThe argument \"$DummyArgument\" has the wrong type."; &CST_error(0,$message,'',__LINE__,__FILE__); |