From bcb1c14ca65faf8caeaf5e37e26dc0b3d54bc484 Mon Sep 17 00:00:00 2001
From: hawke <hawke@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Mon, 10 May 2004 13:53:39 +0000
Subject: 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
---
 lib/sbin/CreateFunctionBindings.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib')

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__);
-- 
cgit v1.2.3