diff options
| -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__); |